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DOl 

JTILITY PROGRftnS 



THIS PRCKftGE COr^Tfilr'S H irClVlDUflL UTILITY PR0GR«f1S^^_ 



TION 

__ _ _ - Y 

PftCKR<iV RRE' EXPLRINCD IN DETRIL IN PRRRGRR^H 9. 



RCOUIRENENTS 



2 1 EOyiPNENT 

POP-li PROCESSOR 

S<li OR RKVU CONTROLLER ^ ^ , 

1-8 RK05 OR RKOSF DISK DRIVES i DRIVE TYPES NRY BE NIXED) 



2 2 STORRCE 

THIS PROGRRH REQUIRES BK 

a 3 PRELiniNRRY PROGRRNS 
THIS YS NOT R OIRCNO 
EOUIPHENT IS FUNCTIONRL 



THIS IS NOT R DrRCNOSTIC, PRCKRGE IT IS RSSUNED THRT RLL 
— 'PHEK- 



LORDING PROCEDURE 
3.1 METHOD 

PROCEDURE FOR NORNRL BINRRY TRPES SHOULD BE FOLLOWED 
R. RBSOLUTE LOROER NUST BE IN NENORY. 
8. PLRCE BINRRY TRPE IN RERDER. 

C. LORD RODRESS «7500 (•OETERNINEO BY LOCRTION 
LOROER) 

D. P^SS -STRRT- PROGRRN HILL LORD. 

sfrrting procedure 

h.l control suitch settings 
none; 

4.? starting rodress 

aOO'NINI MONITOR 

4.3 PROGRRN RNO/OR OPERRTOR ACTION 
LOAD PROGRRH INTO MEMORY 

SET SUITCH REGISTER TO STARTING RODRESS (200) 
LOAD ADDRESS 
PRESS STRRT 

IF THE PROGRRN IS BEING RUN ON R SUITCHLESSPROCESSOR (I.E. RN 11/3S) 
THE PROGRRN UILL DETERNINE THRT THE HRTOURRE SUITCH REGISTER IS 
NOT PRE^NT AND WILL USE A 'SOFTURRE* SWITCH WCISTW. THE 
•SOFTUR*«' SWITCH R|cISTER IS LOCRTEO AT LOCATION iTh (8). T« 
SETTINGS OF THE 'SOFTURRE' SWITCHES RRE CONTROLLED THROUGH R KEYBOARD 
ROUTINE UHICH IS CRLLED BY TYPING A 'CONTROL C' . THE »'>ROGRRN UILL 
RECOGNIZE THE 'CONTROL G' wh<n<v«r th« prcfraa «nt4rt 
(h« tcoB* routine or b«alnt a n«u t«tt. th« 

'SOFTWARE' SUITCH VALUES ARE ENTERED AS AN OCTAL NUMBER IN RESPONSE 
TO THE PRr.lPT FROM THE SWITCH ENTRY ROUTINE: 



EOi 

^wP = 'ifHi'- " ►^lu = SCO ooc* 

(^-■^H Tinr SWITCH SETTlriC ftR£ ENTPR£0. THf ENTJR^ SWiTCH REGISTER 
; MUST BC ENTERED. LE«5lNC ZEftO^ (* 



;iPG£ MUST BC ENTERED. LEftCiNC 2EfiOS <«£ NOT REOUIRED.. 'RUBOUT' AND 
"OM-'ROL 0' ruNCTIDHS nft ' BE jSED TO CORRECT TYPING ERRCRS 
OJPIK* SWITCH ENTRf. 

DM PROCESSORS WITH HAROWftRE SWITCH REGISTERS. THE 'SOFTWARE* SWITCH 
REGISTER MAY BE USED. IF THE PROGRAM FINOS All lb SWITCHES IN THE 
•UP- POSITION, ALL SWITCH REGISTER REFERENCES WILL BE TO THE 
•SOFTWARE' REdlSTER AND THE PROCEDURES DESCRIBED ABOVE MUST 
8f FOLLOWED 

PROGRAM WILL TYPE MINI MONITOR ROUTINE 

OKH^tTING PROCEDURE 

5 i OPERATIONAL SWITCH SETTINGS 

SEE SEC. 9.0 FOR SWITCHES APPLICABLE TO INDIVIDUAL 
ROUTINES. 

5 c- SUBROUTINE ABSTRACTS 
NOT APPLICABLE 

S 3 PROGRAM AHD/OR OPERATOR ACTOR 

SEE INDIVIDUAL PACKAGE DESCRIPTION (PARACOAPH S) 

ERPORS 

b 1 ERROR HALTS AND DESCRIPTION 

IF HALTED A MAJOR PROBLEM EXIST CHECK 
CODE AT HA» T PC TO DETERMINE WHAT 

OCCURRED. 

b e ERROR RECOVERY 

EXPLAINED IN DETAIL IN INDIVIDUAL PACKAGE 
DESCRIPTION (PARAGRAPH S) 

RESTRICTIONS 

1 STARTING RESTRICTIONS 

IT IS NOT RECOMMENDED THAT YOU START AT AN 

ADDRESS OTHER THAN 200. (REASON EXPLAINED IN PARAGRAPH q.i) 
UNLESS DIRECTED TO BY tHE PROGRAM. 

^ OPERATIONAL RESTRICTIONS 

EXPLAINED IN DETAIL IN INDIVIDUAL PACKAGE DESCRIPTIONS C PARAGRAPH. 9) 

EXECUTION TIME 

VARIES WITH SELECTED ROUTINE, NUMBER OF DRIVES. ETC. 

PROGRAM DESCRIPTION 



FOi 




SWITCHES. Ii 
THC PACKAGE 



VERIFICATIOh. flK) FROffT PPNEL T| 



LAMPS , 



SECTION 

0 
1 
3 
3 
M 
S 
b 
7 



coSKtibility test 
oscillating seek package 

FORMATTER SU^JfcE VERIFIER 

FROffT PANEL TEST 

RKQS CONTML PANEL TEST tS 

HEAD ALIGNTCNT ROUTINE 

POiCR FAILURE (DURING URITE) TEST 



NOTE: NORMAL LINKAGE TO ANY OF THESE PACKAGES IS THRU 
SECTION 0 (SEE PARAGRAPH 9.1) 



q. 1 



SECTION 0 
PURPOSE: 

DESCRIPTION: 



USE: 



INDEX 




WHICH TEUS THE U 
TEST. (TYPE IS AN 



VARIOUS SWITCH SE'^Il^- 
S 2in. A TABLE IS PRODUCED 

(€ NAME AND TYPE OF THE 




AFTER 



?t J W 



iTAL CODE 
fHE TABlFi 



Y WHICH THE USER SELECTS 
TYPED. THE GUEST I ON "TYPE 



;R THEN TYPES THE NUMERAL 0-H 



EXAMPLE OF THE ACTUAL OUTPUT: 



RKii UTILITY PACKAGE 



[TY PACKAGE 
SEEK PACKAGE 
_ JuWSCE VpIFIER 
^ CONTROL PANEL TEST 
RKOS CONTROL PANEL TEST tS 
HEAD ALIGrtCNT ROUTINE 
POiCR FAlLUfe (WRITE) .EST 



Fi 
RK 



TYPE 
0 
J 
3 
3 
M 
S 
t> 
7 



TYPEsX 

ERROR INFO: 

SECTION 1 
PURPOSE : 

DESCRIPTION: 



WERE -X- IS THE RESPONSE (0-7) BY THE USEP 

ANY ILLEGAL INPUT HANDLED. A QUESTION NARK 
IS TYPED AND THE (iutSTION "T^'PE =" IS RE -ASKED. 

COMPATIBILITY PACKAGE 

TO CONFIRM THE FACT THAT A GROUP OF DRIVES 
(A MAXIMUM OF EIGHT) ARE TRULY COMPATIBLE. 

THIS PACKAGE DOES NOT APPLY TO RK-05F DRIVES. 
THIS PACKAGE ALLOWS A USER TO AUTOMATICALLY TEST 



USE: 



INFERS 



GDI 

CCf^fiTIBlLlTY OF UP TO EIGHT (B) DRIVES SIMPLY 

TO PLACE THE POOK. T»C LIMTRTIOMS OF TESTING (WE 

ONLY ONE (1) DRIVE (RHY DRIVE NUMER) fWY 

MAS WRITTEN ON OfC DRIVE CRN BE 
READ OH ANOTHER. ^ ^ 
J, coflPPTIBLE 

WHAT WAS 

^ 50 MUST Be «BLE 

TO OVERWRITE A PORTION OF INFORMATION WRITTtN 
BY ANOTHER DRIVE. WITH NEW INFOWIATION RNQ 
RERO IT BACK. tAiSIS R VERY BROAD 5eF I NIT I ON 
BUT IS THE BASIC PREMISE OF TRUE COMPATIBILITY. 
THE BELOW IS AN EXAMPLE OF ACTUAL OUTPUT. THE UStR 
WANTS TO RUN SINGLE PROCESSOR MODE RND TEST 
COMPATIBILITY ON THREE (3) DRIVES WHOSE UNIT NUMBER 
PRE 0,1,3 

********** 



RERO OH HngiH^R. 



EXAMPLE 1 

NAME 

INDEX 

COMPPTIBILITY PACKAGE 
OSCILLRTINC SEEK PACKRCE 
FORMRTTER-SUiVACE VERIFIER 
RK05 CONTROL PANEL TEST 
RKOS CONTROL PANEL TEST 12 
HEOO ALIGNMENT ROUTINE 
POWER FRILURE (WRITE) TEST 

TYPE^l 

DRIVE NUMBERS ON SYSTEM 1=0,1,3. 

IS THERE fi SECOND SYSTEM'N 
MOUNT PRCK ON DRIVE tO 
rWKE PACK WRITE ENABLE 
PRESS CONTINUE WHEN DRIVE ROY 
MOUNT PACK ON DRIVE •! 
MAKE PACK WRITE ENABLE 
PRESS CONTINUE WHEN DRIVE RDY 
MOUNT PACK ON DRIVE •3 
MAKE PACK WRITE ENRBLE 
PRESS CONTINUE WHEN DRIVE RDY 

MOUNT PACK ON ~ 

MAKE PACK WRIT( 
PRESS CONTINUE WHEN DRIVE RDY 
MOUNT PACK ON DRIVE •! 
MAKE PACK WRITE ENABLE 
PRESS CONTINUE WHEN DRIVE RDY 
MOUNT PACK ON DRIVE «3 
MAKE PACK WRITE ENABLE 
PRESS CONTINUE WHEN DRIVE RDY 
DONE! 



TYPE 
0 
1 
S 
3 
4 
S 
b 
7 



HOi 



5EQ 000" 



MAflE 

COMPPTIBILITY POCKOGE 



Tl'PE 

0 
1 




.THE 
RKXX 

M ft PERIOD THEM 




lS_ft5KE0^JF THERE IS « SECOND SYSTEM, 



«ND RECEIVED 
WAS THEN 
TED 
THE 

CARRIME RETURN 



ONE (i) 
KAGE AND b , 
J EACH SELECI 
HE TERMINATES 



TYPES N F 



NQW'RECEIVES ft "STRING OF MOVE DIRECTIVES TELLING 
EXACTLY WHERE TO MOV^ THE TEST PACK AND WHAT TO 



[VES THE MESSAGE "DONE!" 



HIM 

DO. FINALLY 
INDICATING A _,.._„. 

fiT THIS POINT Shy 5ftlvC hhICh has not been 

DECLARED DOWN AND DID fOT RECEIVE AN ERROR* 
MESSAGE IS COMPATIBLC WITH ANY OTHER SELECTED 
DRIVE MEETING THE SAME C0»CITi0NS. 
FINALLY THE INDEX ROUTINE IS AUTOMATICALLY 
RE-ENTERED AND USER IS READY TO MAKE ANOTHER 
SELECTION. 

•SEE ERROR INFO TO DETERMINE THE TYPE OF ERROR 
WHICH CONSTITUTES INCOMPATABILITY. 

«*•••****« 



F^fiMPLE 2 



THE USER NOW 
TWO SYSTEMS „ _ . , 
AND UNIT 0 ON SYSTEM 2, 
RKii UTILITY PACKAGE 



DESIRES TO Tl 
HE HAS UNITS ( 



ST COMPATIBILITY ON 
l,i ON SYSTEM ONE 
GOES LIKE THIS 



NAME TYPE 

INDEX • 0 

COMPATIBILITY PACKAGE 1 

OSCILLATING SEEK PACKAGE 2 

FORMATTER-SURFACE VERIFIER 3 

RKQS CONTROL PANEL TEST H 

RKQ5 CONTROL PANEL TEST ^2 5 

HEAD ALlGfffCNT ROUTINE b 

POWER FAILURE (WRITE) TEST 7 



TYPE=i 

DRIVE NUMBERS ON SYSTEM 1=1,0 

IS THERE A SECOND SYSTEM'Y 
DRIVE • «0 

MOUNT PACK ON DRIVE tl 

MAKE PACK WRITE ENABLE 

PRESS CONTINUE WHEN DRIVE RDY 

MOUNT PACK ON DRIVE to 

MAKE PACK WRITE ENABLE 

PRESS CONTINUE l*CN DRIVE RDY 

LOAT PND START ADDRESS 210 ON SYSTEM t2 

AND YPE THE BELOW WHEN ASKED ON SYSTEM §2 



lOi 



owe TYPE THE BELOW WHE'^ fiS^'EC ^OP H 

WORD 1=000002 SEO 3008 

WORD 2»00020C 



THE ONLY OIFTERENCE BETWEEN THIS ftNC SINGLE 

SYSTEM IS THE NEW DIRECTIVE TO LORD STRRT 210 
ETC. THE USER NOW WORDS RND STRRTS SYSTEM TUO 
RND THE BELOW IS TYPED. . . 

««••**»*«« 

COMPRT IBIL I TY-SYSTEMi2 
UORD ls000002 

WORD 2=000200 

MOUNT PRCK ON DRIVE »0 
fIRKE PRCK WRITE ENRBLE 
PRESS CONTir^UE WHEN DRIVE RDY 

DONE SYSTEM 2 RESTRRT SYSTEM 1, TYPE WORD 000077 

•««•••••«« 

THE USER SSPQMSE TO THE QUESTION WORD 1 = 

BY TYPING WORD 1 FROM PROaSSOR ONE RND 

WORD 2 X BY TYPING WORD TWO FROM PROCESSOR 1 

HE RECEIVES THE MOUNT COMMRNO MOVES THE TEST PRCK 

TO SYSTEM TWO. DRIVE NUMBER (OK AND PRESSES 

CONTINUE. HOU THE MESSRGE TO PtlURH TO SYSTEM 

ONE* 

tbYSTEM ONE HRS BEEN IN R HRLT STATE RND 
SHOULD BE LEFT THRT WRY UNTIL THE RETURN FROM 
SYSTEM TWO SO THRT TRBLES. ETC. BUILT FOR THE 
TEST WILL NOT BE DISTURBE6. 

»•«««««««« 

W0RD*000077 

MOUNT PRCK ON DRIVE tl 

MAKE PRCK WRITE ENR6LE 

PRESS CONTINUE WHEN DRIVE RDY 

MOUNT PACK ON DRIVE tO 

MRKE PRCK WRITE ENRBLE 

PRESS CONTINUE WHEN DRIVE RDY 

DONE! 

RKll UTILITY PRC(<:HGE 

NRME TYPE 

INDEX 0 

C0MPRTI8ILITY PfiCKflGE 1 

OSCILLRTING SEEK PRCKRGE 2 

FORMRTTER-SURFRCE VERIFIER 3 

RK05 CONTROL PRNEL TEST 4 

RKOS CONTROL PRNEL TEST iS 5 

HERD RLIGNMENT ROUTINE b 

POWER FRILURE (WRITE) TEST 7 

TYPEr 

»•««««*« *« 



JOl 



'Ht nQn presses COhTlMye ON PROCESSOR OfiE 

«fC IM RESPONSE TO THE sOCSTlON. WORD =. TYPES 
THE iJORD GIVEN TO HIH FROM PROCESSOR Tui) 
THEN EVERYTHING BECOMES THE SftME ftS P SINGLE 
SYSTEM. THE USEF ME««LY FOLLOWS DIRECTIONS. 
ERROR INFO: SEE PflRftCRAPH «9.b SPECIftL SECTION 



SEo oooq 



SECTION 2 
PURPOSE : 



OSCILLftTING SEEK PftCKftGE 



SERVO RDJUSTMENTS 
BY PERFORMING 



DESCRIPTION: 



TO ^LOW THE USER TO MftKE 
ANO/OR SEE>f LOGIC CHECKOUT _ _ 

"HE DRIVES TO BE TESTED IN SWQ TO SW7 
OF T« SWITCH ftEGISTER. P ^TCH IS SET 
FOR EftCH DRIVE (ETg $W5 TO TEST DRIVE 2. 
* - "N IHSEi 



oo^^Ito s 

ftRE LCSfit . & 
•WOE SfTWK:^ 



:ek in 

J CYOL 



BOTH ADDRESS 
1) UILL BE 
[SS THEN 

FOR 
.OU FOR GOOD 



LLRTING 
NOERS 



USE: 



THE OM.Y UAY TO EXIT IS HRLT! , LORD RODRESS 200, 
HIT STRRT 

SELECT TYPE 2, RESPOND TO QUESTION UITH UNIT NUMBER. 
TYPE.2 

ii?'y<S^rs2^"T0'P:cl I&»mS TO TEST 

/^i * - -ifc--*— M-fc- [OUTER LIMIT) 



ERROR INFO: 




ITCH REGISTER RND THE "LfiST 
THE HIGH 



IS TYPED 



CTED fi MESSflCE 

ROORESS RNO DEPRESSES 



•»NOTE:»» 



BOTH_D«IVES 
FOR TESTING 



R TRY AGAIN 
R TRY AGAIN 
R TRY AGAIN 



Of AN RK-gSF SHOULD NOT BE SELECTED 
AT THE SAME TINE. 



<3.4 SECTION 3 FORNATTER-SURFACE VERIFIER 
PURPOSE: 
DESCRIPTION 



TO FORMAT VIRGIN PACKS OR REFORNAT AN OLDER 
PACK AMD VERIFY ITS SURFACE 
SELECT TYPE 3. RESPOiCTQ THE QUESTION 



BY SETTING SuItCHES CORRESPONDING TO 
RIVE NUNBERS TO BE FOmATTEQ. THUS IF 
DRIVES 0,1.2 ARE t5 BE FORNATTED SET 
SWITCHES 0.1. e. THE DRIVES ARE FORMATTED 
ONE AFTER 6n6thER AT COMPLETION PACK GOOD 



USE: 



KOI 

SETTING OF SWITCH REGISTER. 



RKll UTILITY PfiCKflGE 

mUE. TYPE 

COM^TIBILITY PftCKftGE 1 

0SCIL4fiTINC XEK PftCKPCE 2 

FORnOTTER-SU^ACE VERIFIER 3 

RKOS CONTROL PANEL TEST 4 

RKQ5 CONTROL P«NEL TEST iS 5 

HEW ALIGNfCffT ROUTINE , b 

POWER FRILlSK (WRITE) TEST 7 

TYPEx3 

FORflfiTTER-SURFftCE VERIFIER, SET SW REG WITH DRIVE i'S 

POCK GOOD. 

RKll UTILITY PRCKftGE 

NAME TYPE 
INDEX 0 
COWftTIBILITY PACKAGE 1 

«««««*«•«« 

AFTER THE PACK IS FORMATTED A GOOD MESSAGE IS 
GIVEN AND R CHECK IS MADE TO SEE IF Ttr€K ARE 
ANY MORE PACKS TO BE F^ATTEOT IF THEf« ARE 
NONE CONTROL Js TRSfeFERRED TO THE MINl-MONITOR 

ERROR INFO: DRIVE PRQBlIh, IT THE HESSAOE 

SYSTEM E^^ 

IS TYPfi) IT INDICATES A FAULTY DRIVE OR 



BAD SPOT. OR SURFACE PROBLEM, ETC. 
PACK FAILED AT (IN OCTAL) CYLINDER SECTOR SURFACE 
SECTION 4 RKOS CONTROL PANEL TEST 

PURPOSE: TO INSURE ALL SWITCH|S INDICATOR LAMPS. AND INTERLOCKS 

ARE FUNCTIONAL IN ThI RKOS , 
DESCRIPTION: SELECT TYPE H, RESPOND TO QUESTION WITH UNIT NUMBER, FOLLOW 
DIRECTIONS Gl(^N. AT COMPLETION MESSAGE "DONE!" IS GIVEN 

USE SELECT TYPE 4. RESPOND TO QUESTION WITH THE UNIT NUMBER 

•«««•««««« 
NOME TYPE 
INDEX 0 
COMPATABILITY PACKAGE 1 
OSCILLATiNC SEEK PACKAGE 2 
FORMflTTER-SU^fiCE VERIFIER 3 
R»COS CONTROL PftNEL TEST 4 
RKOS CONTR^ PRTCL TEST 12 5 
HEAD ALIGNMENT ROUTINE & 
POWER FAILURE (WRITE) TEST 7 

TYPE»4 



f<*'Zl :WPOl PA^€L fEST MHICH DBIVE'3 

gg^^^.^^840**>^^E THT RUN. 
POWER, RHO OH CYLInACR lSmPS LIGHT. 
•WE tRlVZ WRITE ENftBLE PRESS CONTINUE 

WRITE protect the DRIVE THEN PRESS CONTINUE 

CLEftP MRITP PROTECT THEN PRESS CONTINUE 

CftunON! TRY TO OPEN THE DOOR, DO NOT FORCE: 

DOOR SHOULD NOT OPEN! 

PRESS CONTINUE MHEN FINISHED 

PUT DRIVE IN LORD. WRIT FOR LORD LIGHT 
PRESS CONTINUE WHEN FINISHED 

OPEN THE DOOR. PUT DRIVE IN RUN 
CRUTION! IF TON LIGHT ON ERROR! DEPRESS 
LORD IMMEDIRTELY, CONTINUE WHEN FINISHED 

REMOVE THE PRCK. CLOSE THE DOOR 
PUT DRIVE IN Rljh. DRIVE SHOULD NOT 
RUN. . . INTERLOCKS HRVE BEEN CHECKED 

DONE! 

RKll UTILITY PACKftGE 



LO 



NRME TYPE 

INDEX 0 

COMPRTRBILITY PfiCKRGE 1 

OSCILLflTING SFFK PftCKrtGE 2 

FORMRTTER-SUW^RCE VERIFIER 3 

RK05 CONTROL PftNEL TEST 4 

RK05 CONTROL PftfCL TEST «. 5 

HERO RLIGNMENT ROUTINE b 

POWER FRILURE (WRITE) 'EST 7 

TY^Es 

SECTION 5 RKOS CONTROL PANEL TEST 12 
PURPOSE: TO GIVE fl CONTINUOUS NQNITORING AND 



CHECKING CRPABILITY FOR THE FOLLOWING 
cdNDITIONS ON THE VARIOUS DRIVES: 
OFF LIfC (ROY CLR)/ON LINE (ROY SET) 

pRoTf 



WRITE PflOTECTED/URITE ENABLED 
POWER LOU^'POMn UP 
SEEK INCONPLETE/KEK OK 
DESCRIPTION: iELECT TYPE S. Pjc «U. THE DRIVES THAT 

ARE TO BE NONItQREQ AND CHECKED ON 'RUNV 
NOTE THAT THIS rSll^ORTANT BECAUSE THE 
PROSrAH has to KNOU MHICH DRIVES RRE TO 
BE CHECKED. 

USE: AFTER HAVING SELECTED TYPE S AND PUTTING 

THE DRIVES THRT ARE TO BE NONITORED ON 
•RUN* THE PR0GRW1 PRINTS OUT ALL THE 
DRIVES THAT ARE 'ON LINE'. 



« 



f 



9.7 SECTION 
PURPOSE: 



DESCRIPTION: 



DRIVE 0 on LINE 
DRIVE 1 ON LINE 
DRIVE 2 ON LINE 



MOl 



SCO 0012 



THE OfliVE IS ON Lire OR OFF LINE (DRY 




iVE! 
IT IS 
•LOflO' 
CHECKS 
^ITE 

THEN 
EX: IN 
ON 'LORD' 



ON LINE IN THE 

IF NOT. AN ERROR 'NESSAGE 

UNDcil TEST, if R DRIVE IS PUT 
_ _ BY THE IfiCR IT G^TS REPORTED, 
IF THE USER SET 'iiRITf 
REPORTEOT T>C^«ESSRGE< 



PROT* IT GETS 
APPEAR AS FOLLOUING: 



DRIVE 0 
DRIVE 1 
DRIVE 2 
DR 

SS 

OR 




OFF LINE 

URITE PROTECTED 

SIN 

URITE ENABLED 

: LO 
OK 
R OK 



NOTE THAT 
REPORTED. 
BY THE 



CHANGES 



ONLY 

THESE CHANGES HAVE 



tGHT I 

HEAD ALIGNMENT ROUTINE 



IN STATUS ARE 

' ' TO BE AFFECTED 
IF ANY CHANGE IN STATUS IS NOT 
REPORTED BY THE PROGRAM 
Y AN ERROR CONDITION. 



rHEROUTlNE IS SELECTED THE 
JING NESSAGE APPEARS: 



TO PROVIDE A FACILITY FOR HEAD ALIGNMENT, 
WITH DYNANIC SELECTION OF THE UPPER OR 
LO»«R i- ' 
UHEN Tf_ 
FOLLOWING _ 

SET SUO«0 FOR SURFACE 0. SUQsl FOR SURFACE I, 
SET S5T«1 TO TEST CYL bA, SET SW1=0 TO TEST 
CYLINDCR 105. 
SM2-lSiO 

PUT ANY SU FRON 2-15 HI TO SELECT NEW DRIVE 
THEN THE FOLLOWING QUESTION IS 



DRIVE' Tl 
SHOULD TYPE IN THE DRIVE NUNKR 



HE WANTS TO SELEC?. 
SUFFIXED WITH AN 'F 
DRIVES. 



THE DRIVE NUfCER IS 
TO TEST RK-05F TYPE 



NOi 



C>PIVE«0<CR> 



TO K SELECTED 



R OP THE LOWER _HEAC_CAN_BE 

PUT S« 0 TO 0. If 
" PUT SH 0 



SElECTeI' 8? SWITCHO: IF SURFACE 0 



Oft CYLIM(5cR iOST SET SWi«0 
SWl»i F' " 




_ _ . ON 1. 
«T CYLINDER bH 
FOR CYLINDER 105. 



ON THE SELECTED 
FROM 
" WISHES 
HERO OR CYLINDER IT CRN BE 
FLIPPING SU 0 OR SU 1. 



THE 

TO s£lect 

DYHRWCRLLY 
RNY^SIfr^ 



»tNOTE«« RLIGN,-CNT IS DOME 
SO IF M F TYPE OR 
faH OF THE RK-05J I 



9.8 



(EVEN DRIVE). 
OF THE 000 0^1 

(OIS 
THIS _ 



UITH RH RK-05J CRRTRIOGE 
VE IS SELECTED. CYLINDER 

— f THE F DRIVE 

S CYLINDER 5 




SECTION 7 
PURPOSE: 



(DISK) POHER FAILURE (DURING URITE) TEST 

*^HR^ 



DESCRIPTION 



THIS TEST CHECKS THRT OR 
TgOYEO UHEN THE 

CTING THii TE»Ta 
RVRILRBLE ORIvt 
TYPING R ME^' 
K 

TO TO 



iTR WRIT 



THE F] 
THE 



*I?E X " 
PROCEEDS 




DROP 
NERNUHILE URI 

' TTIf - 



ON GET1, _ 
DROP. THE P< 



N ON THE DISK 
J^ft LOSS OF 

iM^fiNDS OUT 
INDICATES IT TO 

nfyk NUMKR 0.1... 7 

ITE UNIOtC PRTTEftNS 
) OF THRT WIVE. 
ON CYLINDER 10 
POHER ONTHRT 



POU|R 

RITE IS BEIf«i DONE ON CYLINDER 10 
NG THE RBOVE MESSAGE THE USER SHOULD 




?he'*?8^'*^agSn?^^"^^'^^*^^''^^^ 

ON.RECEiyfNGjrHE ABOVE MESSAGE THE USER SHOULD 
^ T?*CHlcK^THS^TH^DA'l5^iK 

RTEO RSFOLLOM" " 



pI^ogrrS 
on cylinders 
checkSerwr 




_ OF THE 
LOSS OF POWER) IT IS k 

ERROR, ON POHER-U . _ 

XXXX IS THE CONTENTS OF I^KDR AT THE TIME OF 
ERROR. 



rO) AS FOLLOWING: 
mCOAxXXXX 



THE PROGRAM DOES THE ABOVE POUER FAIL TEST 



OH O^L DRIVES TMPT ME PRESENT. OfC <VTER TK 
0T>« IN ft TOUNO BOBBIN f5SHI0«. EXIT IS THROUGH 
MfiLT. 



SCO 0014 



'-) ^ SECTION SPECIAL 



•NOTES I 
ERROR EXAMPLE 1 




gu EXAMPLES T>C rOLLOUir*u PORHRT 

YPEOUT : COMMENTS ON UMPT 

lOCr'jRREft OR WHAT TO DO 
SflRY FOR tLMRITY 



FORMRTTER-SURFRCE VERIFIER 
RK05 COMTROL PRMCL TEST 

TYPC«1 

DRIVE rtJMBCRS ON SYTEH IxQ. 

IS THERE R SECOMO SYSTEH'N 
MOUNT PACK ON W 
MRKE PRCK URITE 
PRCiS :ONTINLC UHEN 
WRITE PWTECTI 
URITE PROTECT? 

DONE! 

RKll UTILITY PACKAGE 



DRIVE 
DRIVE 




IVE ROY 



NAME TYPE 
IWEX 0 
COMPATIBILITY PACKAGE 1 
OSCILLATING SEEK PACKAGE S 

ERROR EXAMPLE 2 

RKU UTILITY PACKAGE 

NAME 

COMPATIBILITY PACKAGE 
OSCILLATING SEEK PACKAGE 
FORMATTER-SUi^ACE VERIFIER 
RK05 CONTROL PANEL TEST 
Rt<05 CONTROL PANEL TEST t2 
»CAO aligntCnt ROUTIHE 
POWER TaILURC (URITE) TEST 

TYPE*! 

DRIVE NUMBERS ON SYTEM 

IS THERE A SCCl 
MOUNT PACK ON QR 

NOT ^^Y 
DRIVE NOT READY 
DRIVE NOT READY 




3 
4 



TYPE i SELECTION 
DRIVE iO SELECTED 

NO SECOND SYSTEfl 

CONTTNyE PRESSED BLT 

URITE PROTECT ON 

CLEAR URITE PROTECT SWITCH 

NOW RUNS TO FINISH 

THIS DOES NOT EFFECT 

OUTCOME OF TEST 



TYPE 
0 
I 
S 
3 

4 

s 
b 

7 



; CONTINUE PRESSED BUT 
; DRIVE NOT RFAOY. IF UP 
;T0 SPEED ETC. ftNO NESSftGE 
OCCURRING - STATIC SHOULD BE 



J<*WE NOT «fflOY 



113 Sf 





DRIVE NOT 

- 

jl 

ORlvC NOT 
DOME! 

RKll UTILITY POCKPGE 
NAfC 

INDEX 

COMPATIBILITY PACKAGE 
OSCILLATING SEEK PACKAGE 

ERROR EXAnPLE 3 

RKll UTILITY PACKAGE 



COS 

RUh IF NOT LOAOCD OR NOT 

IT DOCS NOT CFFECTTHE 
:THE OUTCOME OF COflPATABlLITY 




INDEX 
COMPAT 

psci 

RK05 

RK05 COH 
HEAD ALI. 
POWER FAIL 



AGE 
RIFIER 

•2 



(WRITE) TEST 



TYPE«1 

DRIVE NUMBERS ON SYTEM 1*0,1,4.7 

IS THERE A SECOND SYSTEM'Y 
DRIVE • «2 

MOUNT PACK ONDRIVE »0 
MAKE PACK WRITE ENABLE 

ScJIMUE HMENORIVE ROY 
MOUNT PACK ON DRIVE •! 
MAKE PACK. WRITE f 

DRIVE riseI ni 

DRIVE 
DRIVE 
DRIVE 
DRIVE 



TYPE 
0 
1 
2 



TYPE 
0 
1 
2 
3 
4 
3 
b 
7 

; DRIVE RESET TIMED OUT 





IVE RDY 



CONTINUOUS 

^ — ^g- — 



INjfcAff J'^^oi I V£ PROBLEM 
T^CRE IS NO feCOVERY 

IS NECESSARY. DIAGNOSTIC 
SHOULD BE Wh AGAINST THE 
FAILING DRIVE. 



•NOTE A SLOW OR] 
MAY CAUSE THE MES' 

THEN CONTINul THIS IS W AND^WILL NOT EFFECT THE 
OUTCOME OF THE TEST. 



OR FAST PROCESSOR AND MEMORY 
TO APPEAR A FEW TIMES AND 



ERRO«? EXAMPLE 4 



OSCIL^<^TINC SEEK PACKAGE 
FORMATTtP-SURFACE VERIFIER 
RK05 CONTKO' PANEL TEST 



2 
3 
4 



T>PE=1 



'jf>lvl f*jr«£RS Oh SYTEW 1«C. 



IS THEKE A 



YSTEM»M 





VC ROY 



DOE 



;S»ME ftS «eOVE BUT FUNCTION 
;UOS A CONTROL RESET 



ftRE THE SAME 



J g^L_ COMMENTS 



EXAMPLE 



•A SINGULAR OCCUPIAfCE AS ABOVE IS NOT A PPOBLEN 
Ului NOT EFFECT CO»f>ATAeiLITY 



Arc 

ERROR EXAMPLE 5 



EFFECT COMPATABILITi'. 



I«1WTINCTHPT (5) ^^^glj!''^^ ^ ^INUE 

AGAINST THE OTHER QRlVCS BUT 
PROeLCn IN THIS ORIVC AND IT SHOULD BE 

asp'^^T-^ ?s'ij?'TT'is''asTi|igr?siiijjjRE 

NOT NECESSARILY COMPATABLE OR INCOMPATABLE. 



RKll UTILITY PACKAGE 



COMPATIBILITY PACtCAQE 
OSCILLATlNf 
FORMATTER-' 
RK05 COHTR<^ 
RKOS COMTROL P 
HEAD ALIGHTCNT 
POUER FAIlJc ( 

TypE«i 
DRIVE r 

IS THERE A SECOND SYSTEM'N 
MOUNT PACK OnSrIVE 
MAKE POCK URITE EMReLE 






TYPE 




0 




I 




s 


f!er 






M 


T 12 


5 




b 


TEST 


7 


IsO. 





^ .NUEMHEN'kRlVE ROY 
S ERRORS OCCURRED DRIVE DECLARED DOWN!! NOT TESTED 



PRESS CONTI 
S ER 
nONE 



RKll UTILITY PACKAGE 
NAME 

INQEX 

COMPATIBILITY PACKAGE 

•IN THE AeOVECASE THE MESSAGE 
ERRORS OCCURRED DRIVE OECLAREf 
MAY OCCUR IT IS THE SAME ERR" 



TYPE 
0 
1 



EXCEPT 

ON ONE DRIVE 



ED DOWN 
OR AS D 



IS CAUSED SY 3 SEEK 



3 SEEK INCOMPLETE 
! ! NOT TESTED!" 
ESCRIBED ABOVE 
ERRORS OCCURRING 



£<?ROP EXAMPLE b 



sEa ooib 



«Kn UTILITY PftCKftGE 




TyPE«l 

DRIVE NUMBERS ON SYSTEM 



1«0. 



A SECOND SY5TEn*Y 
• >1 
PACK ON 



IS T>CRE 
DRIVE • 

NOUNT PACK ON OR 
NAKE PACK URITE I 



U0»»»000l77 




IVE RDY 
310 ON SYSTEM «2 
ASKED FOR IT. 



nOUNT PACK ON^gRIV^Itq 

riNUE U^^I 
»TA WlTip* Iy 



MAKE PACK MR I 




RDY 



ACOR^ 
ADOR 
ERROR! 
AOOR 



EXTCTI 

ERROR! DATA MRITTEH 



<O0R«007b33 

"~^b33 



iXPCTL 
[XPCTD 




CANNOT BE READ. 
1CV0» 177000 




A00Rs007b33 

DONE! 

RKU UTILITY PACKAGE 
NANE 

I^^Dex 

CONPATABILITY PACKAGE 
OSCIUATING SEEK PACKAGE 
FORNATTER-SUJ^ACE VERIFIER 
RKOS CONTROL PANEL TEST 
RK05 CONTROL PAfCL TEST «2 
HE«0 AtlGNNENT ROUTINE 
P<3WER FAILURE i WRITE) TEST 



[AO. 

fcvo«i7"^ : 

CANNOT Bt READ. 
RECVD« 177000 
RECVO* 177000 



TYPE 
0 
1 
S 
3 

5 
b 
7 



TYPES 

THE fteOVE ERROR MESSAGE SHOWS fi COMPATABILITY 
PROSLEM. ALL ERRORS OCCURRED ON HEAD ONE OF 
DRIVE 0 TR>ING TO READ INFORMATION WRITTEN BY 
CRIVE 1 



ERROR EXAMPLF 7 



EOi 



SEQ oor 



F02 



flOUNT POCK OM OR 
mKKl PACK URITE 

t7 E 



IVE to 





TOY 

VE 1 CATfWT BE READ. 

cyo»Q27bOO 




;vi>«Q37bOQ_ 
^rtJOLJEREftO. 
Cyp«07?bOO 



READ. 



i C<>NNOT_aE REftD 
«^CVD»i7?000 
)eC-P«£D DOWN!! NOT TESTED! 



IN THE ftBOVF. EXOrtPLE THE PROeLEH IS EXTREME. 
THE WIVE UAS OrCLflfeO DOWN OO TO CHECKSUM 
{•RRORS. (TO SEE 'HOW THI5 «ftS DETERMINED SEE 
Pmf^GMPH 9.7). NOTICE ALSO THE PRpeLlM DID NOT 
CTART fiPPEftRINC UNTIL CYLlNOER 7. RNO WftS NOT 
fUtfkL UNTIL CYLINDER 57. AGAIN H^RD tl UAS R 
'OmOh FftCTOR. 

«»«««««««« 

OflPOTIBILITY ERROR RECOVERY 

ALTHOUGH 0 UTILITY PRCKAGE IS NOT R TRUE DIAGNOSTIC 
I" iS OF eENEFIT TO THE USER TO RT TIMES. K ABLE 
^0 MODIFY tHt P??OGRftn TO «C1EVE MORE iN^-OlWiftTION OR 
W1R0L PARAMtTfRS 



THERE ART tUO STRATEGICALY PLACED 
WHICH IF CHANGED TO HALTS, MAY n 
THE L.SER. ONE IS IH THE 'EXECU. 
ALGOUS THE li^R 1c EXAMINE THE 6 
PIj5 ftOfJREls. UOKD C'aUHT AND CONTU 
•IflPOnmi LOCATIONS JUST PRIOR TO 
SXFCUnON. THE SECOND IS IN THE 
MiZH (^LOh THC user TO EXAMINE T 
prFi«« 'Hf fROGR'V^ CORRECTS ANY El 
UHI'.H mr HAVE Ot.f'JRRED. 



NO-OPS. 
or HEtA TO 

^_WHICH 

Efts IN 
)ING AND 
_ ROUTINE 
, RKER REGISTER 
^ORS WHICH 




n FlfK,fD B'- CHECKSUM ERRORS AND THE USER WISHES 

MORE £m>^ nfiPING ^HEN HE MAY MODIFY THE 

mSK WORD AT LOCATION 'ERRCHK*?' TO ONLY RECOGNIZE 

HrtRD ERRORS 



I'u PEhSE OR DECRfASE THE NUMBER OF RETRYS ALLOWED 



G02 



BEFORE ft DRIVE IS 0£CL«R£D OOWM, GO TO THE 
•flOUfiT' ROUTINE. MOOIFY THE SETUP OF LOCfiTIONS 
•ECNT* PfC 'CNT^IN' ore YOU HftVE IT! 



SCO 001<3 



If THE USfR 
L«PG£ 

Of 



THE NUrSER 



PRINtOUtS PER SECTOR 6n FfllLURES 
ERROR EXfiMPLj b.flhO 7) HE ttfiY. nOpl^ 



Of 'CHKCNT* I.N THE 'ROCHK* ROUTINE. 



(THI 
Y THI 



TYPE IN 
SETUP 



« FIN«L LOOX': THE FOLLOWING SECTION SHOWS RLL PRCKftGES 
CALLED IN SE6uENCE^ NONE WITH ERRORS. 
RKll UTILITY PftCKPGE 



NAME 

INDEX 

COMPPTOeiLITY P«CK«GE 
05CILLRTING SEEK POCKftCE 
FOftflPTTER-SU^ftCE VERIFIER 
RK05 CONTROL PRMEL TEST 
RKOS CONTROL PRMEL TEST 12 
HC«0 RLIGNMENT ROUTINE 
POWER FRILURE (WRITE) TEST 



TyPE=0 



RKU UTILITY PRCKRGE 



NAME 

INDEX 

CONPRTRBILITY PRCKAGE 
OSCILLATING SEEK PACKAGE 
FORMATTER-SURFACE VERIFIER 
RKOS CONTROL PANEL TEST 
RKOS CONTR^ PANEL TEST aS 
HEAD ALIGNNENT ROUTINE 
POWER FAILURE (WRITE) TEST 

TYPEsI 

DRIVE NUMBERS ON SYSTEM 1*0,1,3. 

IS THERE A 
MOUNT »»ACK 
MAKE PACK WRI 

PRESS COmiNUE _ _ 

MOUMT PACK ON DRIVE •! 
MAKE PACK WRITt EnSblE 
PRESS CONTINUE WHENORIVE 
MOUNT PACK ON DRIVE 13 
MAKE PACK WRITE ENABLE 
PRESS CONTINUE WHEN DRIVE 
MOUNT PACK ON DRIVE •Q 

fiAKE PACK WRITE Enable 

=»RESS CONTINUE WHENDRIVE 
MOUNT PACK ON DRIVE •! 
MiSiKE PACK WRITE ENABLE 
PRESS CONTINUE WHEN DRIVE 
M'lJNT OACK ON DRIVE 13 



TYPE 
0 
1 

3 
4 
5 
b 
7 



TYPE 
0 
1 
S 
3 
4 
5 
b 
7 




RDY 



ROY 



RDY 



ROY 



RDY 



Hoa 

PACK MIJS. ZmBLl 
PftESS CONTINUE UHEN DRIVE ROY 
DONE! 



INDEX 



RKll UTILITY PflCKOCE 

NRTC TYPE 

ABILITY PACKAGE 1 

OSCILi.AT!NC SEEK PACKAGE 2 

rORMATTCR-SURFR^ VERIFIER 3 

RKOg CONTROL PRrC. TEST 4 

^CHTT^ PRM& TEST 92 5 

HEAD RtlGrtCNT WUTINE b 

POUER rAILURE (URITE) TEST 7 



TYP£«2 

OSCILLATING SCCK PACKAGE. UHICH ORIVE*0 

TOGGLl THE -FIRST CYLINKR AQORESS" (OUTER LIMIT) 

INTC THE LOW BYTE (8IT0-7) OF THE SWITCH REGISTER AND THE "LAST 

CYLINDER AOORESS" (IMCR LINIT) INTO THE HIGH 

BYTE (BITB-IS). THEN PRESS CONTINUE. 

RKll UTILITY PACKAGE 

NAME TYPE 

irccx 0 

COflPftTABILITY PACKAGE 1 

OSCILLATING SEEK PACKAGE 2 

FORMATTER-SU^ACE VERIFIER 3 

RKOS CONTROL PAhIl TEST 4 

RKOS CONTROL PATCL TEST i2 5 

HEAD ALICrtCNT ROUTINE b 

POWER FAILURE (URITE) TEST 7 

TYPEs3 

FORNATTER-SURFACE VERIFIER, WHICH DRIVE'O 
PACK GOOD. 

RKll UTILITY PACKAGE 

NAME TYPE 

INDEX 0 

CONPATABILITY PACKAGE 1 

OSCILLATING SEEK PACKAGE 2 

rCRnfiTTER-SURFftCE VERIFIER 3 

RKOS CONTROL PANFL TEST 4 

•^KOS CONTROL PAK~L TEST 12 5 

HEAD ALIGNMENT ROUTINE & 

POWER FAILURE (WRITE) TEST 7 

TYPCsM 

RkOS CONTROL PANEL TEST, WHICH DRIVE '0 
10UNT PACK ON DRIVE tO 

PLACE DRIVE IN RUN :SHOULD SEE THE RUN, 
POWER. AND ON CYL1n6ER LAMPS LIGHT. 
MAKE 6«IVE WRITE ENABLE PRE5»S CONTINUE 

WRI^E PROJECT THE DRIVE THEN PRESS CONTINUE 



CLtAfl WRITE PROTECT TME^ PRESS CONTINUE 

COUTION! TRY TO OPEN THE DOOR, DO NOT FORCE 

DOOh SHOULD NOT OPEN! 

PRESS CONTINUE UHEN FINISHED 

P ' DRIVE IN L0«0. WRIT FOR LOW) LIGHT 
rHcSS CONTINUE Uh£n FINISHED 



OPEN THE DOOR, PUT DRIVE IN RUN 
C^HJTIQN! TfrOn LIGHT ON ERROR f DEPRESS 
rNMEOIRTELY. CONTINUE WHEN FINISHED 

REMOVE THE P«CK. CLOSE THE DOOR 
PU-' DRIVE IN W*, DRIVE SHOULD NOT 
RUN. . . INTERLOCKS HAVE BEEN CHECKED 
DONE' 

RKU UTILITY PRCKPGE 
rtfilNOf C-Il-CZRKI-E NRCYll 30R(10S2) 2H-NAR-78 09:23 

OZRKlf Pil 2H-N«R-78 CW:20 TRBLE OF CONTENTS 

ZS BASIC DEFINITIONS 

132 TRAP CATCHER 

141 STARTING AQORESS(ES) 

14b ACTll HOOKS 

ISb CONNON IOCS 

2% ERROR POINTER TABLE 

32M INITIALIZE The COMMON TAGS 

353 TYPE F^OSrAN NAME 

3Se GET VALUf FOR SOFTUARE SWITCH REGISTER 

HMO CONPATlilLITY TEST 

1155 OSCILWRtInG seek ROUTINE 

1307 rOR»1ATTER-SUiy?J^ VERIFIEF 

1571 RK05 CONTRS: PANEL TEST 

1841 CONTROL PANEL TEST • 2 

^lb5 HEAD ALIGNnENT ROUTINC 

a^88 DISK POWER FAILURE TCST 

?412 TYPE ROUTINE 

2M82 BINARY TO OCTAL (ASCII) AND TYPE 

ZZZ'I ff'' INPUT R<^iTirC 

27qs READ AN OCTAL NUMBER FROM THE TTY 

2837 TRAP DECODER 

28b0 TRAP TABLE 



102 



SEO 0021 



sEQ 0001 



J0< 



MfilNOCC-U 
DZRKlF.Pil 

1 
S 
3 

5 
& 

7 
8 

9 
10 
11 
12 
13 

IS 

lb 

17 
18 

eo 

21 
22 
23 
2M 
cS 
2b 
27 
28 
2"? 
30 
31 
32 
33 
34 
3S 
3b 
37 
36 
3S 
HO 
41 
42 
43 

4S 
4b 

48 

4'^ 
=.0 

S»l 
&2 
S3 

54 

SS 



-OZRKI-E nfiCVll 
2M-f1fiR-78 0<9:20 



000001 
IbOOOO 



001100 



000011 
0C0012 
000015 
000200 
17777b 

177774 
17777B 
177570 
1 77570 



□00000 
000001 
000002 
000003 
000004 
000005 
00000b 
000007 
00000b 
00000 



ocoooo 

000040 
000100 
000140 
000200 



30«fl052) 24-n«P-78 0«J:23 PfilE 2 



TITLE fifl I NDCC-ll -OZRKI-E 
•COPYRIGHT (C) 197H.1«?77 
•OIGITftL EQUIPMENT tORP. 
•MftYNPRO. MftSS. 01754 
« 

•PROGRftH BY BOS COLLINS 

tlHIS PROGRAM UAS ASSEMBLED USING THE PDP-ll MfilNDEC SYSMAC 
•PACKAGE (MAINDEC-11-DZ0AC-C3), JAN 19, 1977. 

SSWRxlbOOOO ;;MALT ON ERROR, LOOP ON TEST, INHIBIT ERROR T^'POUT 



•REVISED BY JIM KAPAOIA 

•REVISED BY TOM SAWYER FEB 27, iq7b 

•REVISED BY CHUCK HESS AUGUST. 1976 

.SBTTL BASIC DEFINITIONS 

^•INITIAL ADDRESS OF THE STACK POINTER «•• 1100 »»• 

Stacks iioo 

EQUIV §MI.|RR0R "S5§{g dIfInI"'^ "~ ^ 



.EOUIV lOT. Scope 



;»MISCELLANEOUS DEFINITIONS 



HI: 
LF = 
CR= 
CRLF = 
PS= 
.EOUIV 
STKLMTr 
PIRO= 
DSUR= 
ODISP= 



11 
12 
15 
200 
17T77b 
PS.PSU 
17^774 
177772 
177570 
177570 



SIC DEFINITION OF SCOPE CALL 

FOR HORIZONTAL TAB 
tits 

FOR CAIWIaSe RETURN 
FOR CARRIAGE RETURN-LINE FEED 



PROCESSOR STATUS UORD 



STACK LIMIT 
PROGRMf INTEI 



:u^? Request register 

SUlTCH REGISTER 
DISPLAY REGISTER 



•GENERAL PURPOSE REGISTER 



fto= 

Rl = 
R2= 
R3= 
R4= 
R5= 
Rb= 
R7= 
SP= 

PCX 



y.o 
;'.i 

'/.3 
•/.4 

y.s 

7.7 

y.b 

V.7 



:«PRIORITY LEVEL OEFINITI 
^ROr 0 
PRls 40 
PR2s 100 
PR3= 140 
PR4s 200 



HITl^ , 

TER 
TER 
TER 
TER 
TER 
TER 
^. STER 
_ RfClSTER 

K POINTER 

PROGRAM COUNTER 

?SlORITY LEVEL 0 
{PRIORITY LEVEL 1 

PRIORITY LEVEL 2 
;PRIORITY LEVEL 3 

PRIORITY LEVEL 4 





n**INO€C-n-DZRKl-E 
DZPKIP.PU 2^-naR-7B 

57 000300 
50 00G3M0 

bl 100000 

be 040000 

b3 020000 
bH 010000 
bS 

bb 

fa7 OOlOOC 
bS 000400 
b9 OQOSuO 

70 000100 

71 OQOOMO 

72 000020 

73 000010 

74 000004 

75 000002 
7b 000001 
77 

78 
79 
80 
81 
82 
83 
84 
85 
8& 
87 
88 

8«J lOOOOQ 

90 040000 

91 020000 
9,? 010000 

93 004000 

94 002000 

95 001000 
% 000400 
«J7 000200 

98 000100 

99 000040 
100 000020 
131 000010 

102 000004 

103 000002 

104 000001 
105 

IJb 
107 
108 
109 
110 
111 



flACfll 
09:20 



30Ar 10S2) 



lie 



PPb* 
PR7» 



rVtR-7B 09:23 

dcfi.^itionI 

300 
340 



K02 



PAT^E 3 



::PRIORITY LEVEL b 
::PRI0RITY LEVEL 7 



^-|HITCH^^ggJSTER" SWITCH DEFINITIONS 

5U14» HOOOO 
SU13S 20000 
SUlSs 10000 

Itiiis 28^ 

SU09« 1000 

suoex 400 

SU07x 200 
5U0f>= 100 
SUOSc 40 
SM043 20 
5U03S 10 
SU02x 4 
SUOls 2 
SUOOs 1 
.EQUIV 
.EQUIV 
.EOUIV 
.EOUIV 
.EQUIV 
.EQUIV 
.EQUIV 
.EQUiv 
.EOUIV 
EOUIV 

:#0«Tft BIT 
6lT15» 1 
SIT14* 
8IT13= 
BIT12. 
BITlls 
8IT1Q* 
BIT09« 
8IT08" 
BITO?x 
BITQbx 
BITOS= 
BIT04« 
BIT03S 
BIT02= 
BITC 

bitL 
!eSj!v 

.EOUIV 
.EQUIV 
.EQUIV 
.EQUIV 
.EQUIV 



FINITIONS 

10 

4C 

20000 
10000 
4000 
2000 
1000 
400 
200 
100 
40 
20 
10 
4 
2 
1 

"IT09.BIT9 
IT0B.8IT8 
BIT07,8IT7 
BITgb.BITb 
BITOS.SlTS 
BiT04,BIT4 
BIT03,BIT3 



(BITOO TO BIT15) 



OE 



«fiIN0€C-U-D2RKl-E rWCfll 30A 



113 
114 
115 
lib 
1 J7 
US 
US 
120 

[U 

121 

12M 

12S 
i2b 

i2e 

130 
131 
132 
i33 
13M 
1 

1^ 

138 
13S 
140 

I '41 
14? 
141 
144 
14b 
14b 
147 
148 
14S 
150 
iSl 



:D52 24-H«fi-7B OS: 23 Pfi'^E 
BftSIC OCriNlTIONS 



SEO 002-4 



000174 
000 1 7b 

000200 

000210 
00021b 



00004b 
000052 



3888% 

0OO014 
000014 

888812 

000024 
000030 

ooooSm 

OOXbO 
000064 
000240 

000000 



000174 
OOQOOO 
000000 

0QQ137 
000210 
U2737 
000137 



000222 
00004b 
001400 
000052 
000000 



001434 

000377 
001440 



001312 



EOUIV BlTOl.BlTl 
.eOUlV BITOO.BITO 

tC "CPU" TRW VECTOR fiODRESSES 
> 4 : :TIMe OU* 



•SVECx 10 
TBITVEC«14 
TRTVEC" 14 

?OTvf?' Jo 
P«RVEC» 24 
EMTVEC« 30 
TRAPVCC»3H 
TKVEC» faO 

PIR5vEC«240 

.S8TTL TRAP CATCHER 



TIME OUT «C OTHER ERRORS 
RESERVED Arc ILLEGAL INSTRUCTIONS 
-T" BIT 
''RACE TRAP 

BREAKPOINT TRAP (BPT) 
INPUT/OUTPUT TRAP (lOT) »»SCOPE»* 



POWER FAIL 
ErtULATOR T 
-T«P- TRAP 



ATOR TRAP (EMT) »»ERRORt* 
■ Tf 

YBC - - 
INTER VECTOR 



TTY KEYBOARD VECTOR 
TTY PRINTER VECTOR 
PROGRAM INTERRUPT REQUEST VECTOR 



;«ALj 
»LOCl 



0 LOCATIONS FROM 4 - 77b CONTAIN A ".♦2, HALT- 
TO CATCH ILLEGAL TRAPS, AND. INTEF 



CATCH ILLEGAL TRAPS AND INTERRUPTS 
riOR 0 CONTAINS 0 TO CATCH IMPROPERLY LOADED VECTORS 

- "OFTWARE DISPLAY REGISTER 

OFTUARE SUITCH REGISTER 



DISPREG: .UQRO Q 
SUREG: .UORD 0 
.SBTTL STARTING AOORESS(ES) 

JMP SiSTARTR 

.s210 

MOVB i377.SiM0DE 
JMP SMSTART 

.SBTTL ACTll HOOKS 



;;JUMP TO STARTING ADDRESS OF PROGRAM 



: ;#»»»»»««»«»«»#*»«»»»»»»«»»»»»«»»«««»«««««»««»«««««««»»•••»•»»»• 

^OOKS REQUIRED BY ACTU 
SSVPC=. 



SENOAO 

.=52 
.MORD 



SAVE PC 

:1)SET L0C.4b TO ADDRESS OF SENOAO IN 
;2)SET L0C.S2 TO ZERO 



.SEOP 



f 



NfilNOCC-ll-OZRKl-E MftCYU 



11206 
)1210 
il?lP 
00121M 
00121b 

Soiaeo 
01222 
0Q122M 



001100 

000000 
000 




000 
000000 

im 

177580 
1775fe2 
1775faM 
1775t>b 
000 
002 
012 
000 
077 
015 
000012 

000000 

000010 

152525 
077777 
000000 
0123M5 
125252 
000001 
177777 
1SS320 



30A(10S2) 2M-fMR-78 09:23 
COMnON TAGS 

.S8TTL COMMOM TftGS 



M02 



SCO 0025 



TAir<5 VARIOUS COnnON STORAGE LOCATIONS 

!An. 



SCHTAG 
SPASS: 
ITSTNH 

"IRFLC 
[CNT: 



.sHOO 




0 
0 
0 
0 
0 
0 
0 
G 
1 



SAUTOB: 
SINTAQ: 

SUR* 

DISMAY: 
IfKS. 1 
ITKB: 1 
ITPS: 17 
STPB: 1771 

sSlLS: .6YT1 

SQUCS: .ASC 
IlfV^ .ASC 



0 
0 
0 
0 

8 

0 
0 



ISP 




0 
2 



<15> 
<12> 



START OF 

contains 

conta: " 
conta: 
conta; 
conta 
conta: 
:5nt<: 



COmON TAGS 
PfiSS COUNT 
THE TEST NUNBCR 
— 1 FLAG 

[STjgERATION COUNT 

ITEM c5nTR0L_8YTE 
HAX. ERRORS PER TE 

,AST ^^J.^g^fJ^"'^^^'^ 

» OF 'BAD' DATA 
• Q«TA 
DATA 




CONTAINS 
CONTAINS 
CONTAl " 

conta! 
conta! 

ONTAINS 
ONTAINS 
RESERVED—NOT TO BE USED 



'TECTED 

]est 




; AUTOMATIC 
INTERRUPT 



INDICATOR 
INDICATOR 




G. address 
G. address 

ER FOR FILLS 

ILLER CHARACTERS REQUIRED 
FILL'CHARS. AFTER A "LINE FEED"^^ 
" AVAILABLE- FLAG (BIT<07> =0=YES) 
NARK 
RETURN 



ftftACTV: 
LOGA 
DRVO 



00122& 000010 



RDTBL: 



.WORD 
.BLKU 

.UORD 
.UORD 
.UORD 
.UORQ 
.UORD 
.UORD 

.BLKU 



0 
10 

hm 

000000 
0123H5 
1KK2 

i?7777 
154320 

10 



ACTIVE DRIVE WORD 
TABLE OF ACTIVE DRIVE UORDS 
TABLE OF PATTERN = TO DRIVE »'S 



; TABLE OF READ ADDRESS 



n«INO£C-U DZRKI-E flACru 30fi'l052) 8W-MfiR-78 09 

OZRX.lF.Pll 8M-nap-78 09:20 COtlflOM TftGS 



20S 

2i3 
2i4 
215 
aib 
217 
218 
219 
220 
221 
22c; 
c'Pl 
c'2M 
22S 

^'?9 
. 30 

^ 11 

<£33 
23M 
c?3^ 
<f3t> 
c^37 

r'38 

•JS 
^40 
c'Sl 

c'M2 
^^43 
?4H 
PHh 
Mb 
M7 
4B 

SO 



0012Sfa 

00l2t>2 
□QI2b3 
OTl2bW 
CX)12b? 

0012(>b 
00l2b7 
001270 
001271 
□01272 
001273 



00 : JOB 
00130b 
001307 
001310 

0013 U 
001312 
001313 
00131M 

001317 
001320 
001321 
001322 
001323 
001324 
001325 
00 1 32b 



00 1 3 JO 
00 i 332 
ncj j3H 
UOi .3i. 



00 

no J 

UO! 
00 



. 1 



377 

077 
037 
017 
007 
003 
001 

000 
050 
120 
170 
240 
303 



fISKTBL: 



001274 0000 U 



r 4 

t J 



00 '. 3bO 

no ib.^ 



000 
004 
007 
013 

000 
000 
000 
000 
000 
000 
000 
000 
000 
000 
000 
000 
000 
000 

001330 

000000 
□00000 
000000 
000000 
OOODOO 
172000 
1 77400 

000000 
004003 
000005 
000000 

oonooo 



BASE: 



CYLTBL: 
SECTBL: 



DRCNTl 

flOOE: 

PRONUM 

DRIVE: 

CYL8AS 

URTN8Y 

HDRFLG 

ECNT: 

CNTSIN 

TIMR2: 

IDEX: 

STFLC: 

OSPFLC: 



KYTEMP 

CQHTRL 

OSKAOfi 

BUSAOR 

UROCiiT 

CYLCNT 

SECCNT 

TIMR: 

CHKCNT 

DSKTMP 

WRITCS 

REAOCS 

ERRFLG 

PfiTTRN 



.BYTE 

!§yt| 

.BYTE 
.BYTE 
.BYTE 
.BYTE 
.BYTE 

.BYTE 
.BYTE 
.BYTE 

fYTE 
YTE 
.BYTE 

.BLKB 

.BYTE 
.BYTE 

eYTE 
YTE 

:Iyte 

.BYTE 

m 

.byte 

.BYTE 
.BYTE 

BYTE 
YTE 
.BYTE 
.BYTE 
.BYTE 

.EVEN 

.WORD 

.UORO 
.klORO 
.MORO 



UORO 
.UORO 
,UORD 
,U0R0 
.UORO 



;TfiBLE OF CYLINDER B«SE FOR «UTO MODE 



CYL 0 BASE CYLINDER ADDRESS 

CYL HO BASE CYLINDER ADDRESS 

CYL 80 BASE CYLINDER ADDRESS 

CYL 120 BASE CYLINDER ADDRESS 

CYL IbO BASE CYLirVER WDRESJ 

CYL 19S BASE CYLINDER ADDRESS 

; TABLE OF SELECTED BASES 

SECTOR 0 
SECTOR 4 
SECTOR 7 
SECTOR 12 

COUNT OF NUHBER OF DRIVES ON SYS. 1 

IF -1 START 210 SELECTED 

IF 0 1 PROCESSOR SELECTED 

DRIVE • UNDER TEST (MAN+AUTO MODE) 

DRIVE UHICH DID URITE (READ OPERATION 

FLAG FOR ONE HEADER PRINTOUT 

ERROR COUNTER 

SEEK INCW. COUNTER 

bECOW PASS TIMER 

CURRENT INDEX • 



TEMP. KEYBOARD BUFFER 
TEMP. CONTROL+STATUS WORD 
TEMP. DISK ADDRESS UORO 
TEMP. BUS ADDRESS UORO 
TEMP. UORO COUNT 
UORO COUNT OF 1 CYLINDER 
. COUNT OF 1 SECTOR 
IR FOR OPERATIONS 
"R OF ER^OR PRINTOUTS 
SAVE OF CURRENT DISK « 
IBA-t-URITE^GO 
REAO-^GO 

ERROR FLAG INHIBIT ADDRESS CHANGE 
DATA PATTERN 



ZH-»m-7B 09:20 



30AC1052)..2H^f«R^ 09:23 PAGE 7 



BG3 



comoM Ti 




808800 



010000 
00010c 

OOOOMO 




^ HWtf : 
lRRRFC : 
^RRUCH: 



UORD 



;BIT DEFINITIONS 

DPLxBITlS 

RWSsilTb 

UPSsBITS 



5E0 0027 



C03 



DZRKIF.PU 
2% 



-OZYt»(I-E riACYll 30A(1052 ) 2H-nnR-78 09:23 PAGE 8 

2^-WW-78 04:20 CMHOR POINTER TAOtE 

.SBTTL ERROR POINTER TABLE 



ass 

300 
301 
302 
303 
30M 
30S 
30b 
307 
306 
30«J 
310 
311 
312 



•THIS T 



•THE INFl 
•LOCATION SITI 



•NOTEl: 
•N0TE2: 



E CONTAINS THE INFORMATION FOR EACH ERROR THAT CAN OCCUR 

BY USING THE INDEX NUMRER FOUND IN 

R INDICATES UHlCH ITEM IN THE TABLE IS PERTINENT. 
0 ThI only pertinent DATA IS (IE WiPC ) . 
EACH ITEM IN THE TABLE CONTAINS H POINTERS EXPLAINED «S FOLLOWS 



EM 
DH 
DT 
OF 



; POINTS TO THE ERROR MESSAGE 

POINTS TO THE DATA HEADER 

POINTS TO THE DATA 

POINTS TO THE DATA FORMAT 



001'«3M 



SERRTB* 

;«••••••••••••••••••••••••«••••••*•••••*«•••*••••••*••••••••*•*• 

THE ERROR TABLE IS UNUSED IN THIS PROGRAM 

:««*«««««««««**««****»•**•««••*•*••*•••? •••••••••***t**«*#t«t*** 



Jib 

318 
ll'i 
lip 

330 
331 
335 

?S 

33S 
J3b 
i37 
338 
33<) 
3M0 

J'iB 
JM^ 
l'')0 

•S8 

JbO 
Ibl 
lb2 
3b3 
Jb4 
3b5 
3bfe 

3be 



XlHSfc 



OQISIO 
00151b 
00152M 



001S32 
Q01536 
00 i SMS 
001552 
OOlSbO 
OOlSfefa 

001570 
001572 
00157b 
OOlbOO 
001bO(> 
OOlblM 



001&30 
00lb32 

ooibae 
ooib^a 

00lbS4 
001fa52 
OOlbSH 

ogibss 

%lbbO 
OOlbbb 
OOlbbb 

OOl'^SM 
001744 
uu 1 750 



OlPTOb 

000002 
0002HO 



0014b2 01270b 
ISTb 



7M 
Ob 



012737 

812737 
12737 
012737 



0i::7Hb 

012737 

001012 

00O403 
Oi271L 
000002 
012737 
012737 
012b37 



005227 
001045 
104401 

005737 
00100b 
023727 
001005 
104405 
000403 
112737 

00042b 



105737 



3S.2C 
001312 

oc; 100 

i?42 



001100 

001140 

OOllW 

024230 
000340 
C2m310 
0003MO 



30<: i052 2H-»i«R-78 OS 23 fWJL S 
ES«0« POINTER TOeLE 



DQ3 



SEO 0029 



000004 



OOlbOO 

00017b 
000174 
0OOOU4 



00lb20 004737 02274b 



177777 
001b70 
000042 
001140 



stnooe 



•STOCK.SP 
tO.-(^J 



;CLEf« THE BUS 

;tock 

■OR RTI 



:3ET UP STOCK FOR PSW=C 
IRETURN 



000034 
00002b 



MOV 
rtOV 
flOV 
RTI 

So5 tiW.SP IlkffuP tSe ilrtcg POINTER 

;: INITIALIZE fi FEU t" 

nov ifTRiS^.iiTRRPVEC 



001572 OQOOO' 
177570 Ml 141 



4 
40 



001 14t 
177351 



001140 
001142 



hOV 
MOV 
MOV 

MOV 
MOV 
MOV 
MOV 
CMP 

arc 




Hflpycc*i 

-ISP) 

c 



b4S: 
bSS: 
bbS: 



BR 

MOV 
RTI 
MOV 
MOV 
MOV 

JSR 



bbS 

bSt 

•b5f,(SP) 



xiTRftP VECTOR FOR TRfiP CRLLS 
:;P0icR FAILURE VECTOR 

EmOR VECTOR 




ISPLRY 

' "C i 




_ SUICH REGISTER 
)ISPLRY AGISTER 
HRROURnE 5UR 
IF Nb"tlMEOUT TRRP OCCURRED 
IS NOT = -1 



0 THt HrtWOMH^t 
«NCH IF NO YlHEOUT 
T UP FOR TRRP RETUF 



pcjstkint : in 
[^ofthepSogrrn if fir|t pass 



RETURN 
POINT TO 50FTURRE SUR 
RESTORE ERROR VECTOR 
INITIALIZE THE TTY INTERRUPT HANDLER 



IME» 
IF NO 



00017b 



000001 001134 



001312 



S8TTL TYPE PRC 
:;TYPE THE NRHE 

INC i-X 

?Se ^bSS j-TYPE RSCIZ STRING 

11 GET SOFT-SWR SETTINGS 
•1?$RUT0B r.SET AUTO-MOOE INDICATOR 



b<9t: 
70S! 

:;b8«: 



BNE 

CMP 

BNE 

GTSUR 

BR 

MOVB 



^CIZ <CRLF>/RKll UTILtt?PflCKACE/'a5>a2>/MAIN0EC-ll-0ZRKI-E/<CRLF) 

t<;tb 5»HonF 
BPL IS 



E03 



3 '8 
37q 

i9fj 

38^ 

383 
i8S 

m 

387 
388 
3«S 
3SG 
JSl 
y*? 
3S3 
JSH 
395 
3* 
3S7 
3<W 
3SS 
400 
401 
40| 
403 
40M 
405 
40fc 
407 
408 
409 
410 
411 
412 
413 
414 
415 
4lb 
417 
4J8 
41<} 

4^o 
4^J 

H22 
423 
424 



.1 ozp*-: E iftca. 

PU 24-rtf»P 78 OS 20 



30fi'l052 ) 24-««R-78 0«9:23 P«GE 10 

GET VfiLUE row SOfTMftRE SUITCH REGISTER 



5E0 0030 



0Q2OS4 
0020S4 
0020b0 

002124 
002124 
002130 

002174 
00217M 
002200 

002244 
002244 
0022SO 

?314 
?314 
002320 

g023b4 
0023(>4 
002370 

002S40 




002bOb 
002&10 
002fol4 
002b20 



00132S 




104401 
00OM21 



104401 002252 
000421 



104401 002322 
0OOS21 



10M401 002372 
000421 



104401 002442 
000421 



104401 002512 
000421 



104401 0025&2 
000405 



104411 
012600 

022700 000010 

S53403 

OO&lOO 

000170 002b22 
104401 001 IbO 
000755 



If: 



lOS: 
STRTl; 



::b51: 



::b7J: 
&&S: 



i;75S: 



TflBLTY: 



::b51: 



NG: 



Wo' 



BR 

.RSCIZ 

TYPE 
BR 

.RSCIZ 

TYPE 
BR 

.RSCIZ 

TYPE 
BR 

.ftSCIZ 

TYPE 
BR 

.ftSCIZ 

TYPE 
BR 

.ftSCIZ 

TYPE 
BR 

.RSCIZ 

TYPE 
BR 

.R5CIZ 

TYPE 
BR 

.RSCIZ 



TYPE 
BR 

.RSCIZ 

RDOCT 

MOV 

CflP 

BLE 

ROL 

JHP 

TYPE 
BR 



STFLC 
lOS 
TRflLTY 

stTlg 

OSPFLC 

,bSl ::TYPE ftSCIZ STRING 

::CET OVER THE RSCIZ 
<15><12><1S><12>/ N«ME 



jPRIN' THE FIRS' TIME 



,b7« 

<15><12>/irCEX 

.b91 
&8S 

<l5><12>/C0riPRTI 



;:TYPE ftSCIZ STRING 
;:GET OVER THE flSCIZ 



;;TYPE RSCIZ STRING 
UgET OVER THE PSCIZ 
dtLlTY PACKAGE 



^711 :;TYPE RSCIZ STRING 

>0S iiGET OVER THE RSCIZ 

<lS><12>/0SCILLRtlNG SEEK PACKAGE 



.73s ; ; TYPE 

>2f IIget C, 

< 15> < 12>/F0R«ATTEft-SURF* 



;IZ STRING 
THE RSC12 
iE VERIFIER 



.7SS 

a5><12>/RK05 
.771 

<1S><12>/RK05 



;;TYPE ASCIZ STRiNG 
iiCET OVER T« ASCIZ 
JOfltROL PATCL TEST 

;;TYPE ASCIZ STRING 
jIGET OVER T»C ASCIZ 
JOAtSOL PA«L Tl 



;;TYPE ASCIZ STRING 
•IgET OVER THE ASCIZ 
/HEAD AL!6NnENT ROUTINE 

: jTYPE ASCIZ STRING 
B„. ::GET OVER THE ASCIZ 

<15><12>/P0UER FAILURE (URITE) TEST 



.7% 
>BS 

<15><12> 
60s 



.bSS 
&MS 

(15X12 



;:TYPE ASCIZ STRING 



:iC£T OVER THE ASCIZ 
><15><12>/TYPE«/ 



1/ 



2/ 



3/ 



ST •2 5/ 



b/ 



7/ 



TYPE 



ISP)*.R0 
•10, R6 
NG 
RO 

98EGIN(R0) 

.SOUES 

TABLTY 



;CET THE TEST NUMBER FROM THE OPERATOR 
STORE IT In RO 
: VALID NUMBER » 
;BR IF NOT 

ALIGN THE NUMBER FOR DISPATCHING 
GO TO THE SELECTED TEST 



F03 



OZRKIF PU 2S-rio«-78 OS: 20 GET VftLUE PQR SOFTUftRE SWITCH REGISTER 



SEO 0031 



428 

431 

432 
433 

43M 

43S 

43b 

437 
438 
43S 

440 
4M1 
4M2 
4H3 
444 
445 
4% 
4M7 
446 
449 
450 
451 
452 
W53 
454 
455 

45^ 

458 
45S 

4faO 
4fcl 
4t>2 
4b3 
4fe4 
44,5 
4b(> 
467 
4b8 
4b9 
470 
471 
472 
473 
474 
475 
47b 
4-7 
478 
4"'S 
480 




X1774 
g02b42 
010370 

i'm 

34 017300 
3b 0eOb3M 
40 021544 



334 
*0 
J3042 
3304b 



003050 
003050 



000240 

104401 
000415 




73 
7b 1 
122740 
001402 
004737 
022701 
001403 
012721 
000772 



002b52 



002712 



001 Ibb 
001311 
001330 
001330 
000054 



001330 



OOOObO 001330 

004072 

00005b 

004142 
00120b 

100000 



003054 00041b 
003112 



104401 00305b 



BEGIN: STRTl 
SECT. 3 
SECT. 2 
SECT.l 
SECT.O 
SECT. 4 
SECT. 5 
SECT.b 



.S8TTL COMPATIBILITY TEST 

.ROUTir« TO PICK UP THE DRIVE NUMBER TO BE TESTED 
,0N SYSTEM 1. 



SECT. 3: 
ftUTSLS: 



: :b5»: 



: :b7$: 
t>i>S: 



IS: 



2f : 



3S: 



NOP 

TYPE 
BR 

.RSCIZ 

TYPE 
BR 

.PSCIZ 

RD(.IN 

MOV 

MOV 

CLRB 

CLR 

Moye 

CMPB 
BEQ 

sue 

JSR 
BR 

CMPB 

BEQ 

JSR 

CMP 

BEQ 

MOV 

BR 



; NO-OP 

,b5$ :;TYPE ftSCIZ STRING 

t4$ ::GET OVER THE RSCIZ 

<15><12>/TERMIN«U UITH •.<CR>V 

,67$ ;;TYPE ftSClZ STRING 

i>i>% jjOgT OVER THE OSCIZ 

<1S><12>/DRIVE NOlHSERS ON SYSTEM 1=/ 



(SPJ*,RO 
•LOGA.Rl 
SaORCNTl 
SlKYTEMP 
(RO)+.atKYTEMP 

Uo.StKYTEMP 

PC, STORE 

•|6,-(R0) 

PC. ILEGflL 
•OAVO.RI 

secsyS 

•100000, (Ri )♦ 
3t 



S OF THE INPUT BUFFER 
THE LOGICAL UNIT TBL . 
VE COUNTER 



K UP T 
„ THE 
CLEAR T>C 
CLEAR TEHP 
GET THE FIRST DRIVE • 
Tl IT A COHMR THAT UAS TYPED' 
IF YES CO BACK 
'*»<E_'*SCII A DRIVE • 
IF RESULT NEGATIVE BRANCH 

IP POsiTiVE Jump 

AFTER 5TQRINC_G|T NEXT • 

UAS NCGATIvk RESULT A TERMINATOR' 

IF YES BRANCH 

IF NO BAD CHARACTER JUMP 

IS THE TABLE FULL 

I F YE 9 Bf^nf^CH 

IF NO FILLTABLE WITH DOWN INDICATOR. 
GO BACK AND CHECK 



; ROUTINE TO DETERMINE IF THERE IS A SECOW 
.SYSTEM AND IF SO TO GET THE NUMBER OF THE 
; DRIVE ON THIS SYSTEM 



SECSYS: 



: :fc5$' 



TYPE .bSS TYPE ASCIZ STRING 

BR t>H% i GET OVER T^C ASCIZ 

.ASCIZ <15><12> IS THER& A SECOND SYSTEM'/ 



G03 



n(*lt1D€C-ll-DZM.l-g MACYH 30fi<1052; 24-ri«R-78 0*3:23 PftGE 12 

DZRKir.PU 24-'ifl«-78 09:20 COtlPftTIBILlTY TEST 



SEO 003c 



4es 

49S 

^i^ 

488 

S8<9 

4<» 
4S1 

492 
4S3 
49S 
49S 
4% 
497 
496 
499 

18? 

502 
S03 
50M 
SOS 
5C 



IS? 

SIO 
Sll 
S12 
513 
514 
515 
51fa 
517 
51B 
519 

sao 

521 

522 

524 

525 
^^?b 
S?' 

S2e 

31 
12 
• 

= 15 



0031 IM 




W314M 



n 

003274 
003274 
003300 

003304 
00330^ 
0C330fe 



0O3J12 
00331b 
003322 

00332M 
003330 
00333H 
□03J3b 
003340 
003342 
□03344 
003350 
003354 
Q03,^L^ 



10MM07 
012b37 

2737 
0014^ 



000131 001330 
0001 1E> 001330 
003 1S4 




ISS??? 000377 001313 
0002HO 

lOHSOl 00317t» 



001330 
lOHMOl 001330 

CKMObO 001330 

737 000010 001330 
4 

001330 

^0000 001330 



1311 
001330 001 Ibb 



104401 003302 
000401 



000725 

10S037 001313 



012700 
10S037 
OOOMOS 

0b2700 
022700 
001414 
005710 
lOOOOl 
000770 
011037 
004737 
004737 
004^3'' 



001 Ibb 
001324 



000002 
OOldOb 



001 lb4 
004174 
005104 
005b32 



: :b7S: 
PR02: 



::b5l: 



BfiDINP: 



: :b5$: 
&4S: 



ROCHR 
MOV 
TYPE 
CMP 

BEO 

TYPE 

BR 

.RSCIZ 

ilSB 
NOP 
TYPE 
BR 

.PSCIZ 

RDCHR 
MOV 

SUB 

BMI 

CMP 

BLE 

SUAB 

BIS 

MOVB 

ROL 

MOV 

BR 

TYPE 
BR 

.ftSCIZ 
BR 

CLRB 



(SP)*J»KYTEMP 
.KYTEftP 
fclSl.SSKYTEMP 
PR02 

• Ub.StKYTEMP 

PROl 

,b7i 

/'/ 



aiPRONUM 



.bSS 

<15><12>/0RIVE • 

(SP)*.3tKYTEMP 
.KYTEMP 

l.atKYTEMP 

•lO^StKYTEMP 

JtKYTEMP 

•BITlH.atKYTEMP 

^■ORCNtl.RS 

a»KYTEMP,L0Cfl(R5 
GO 



READ A CHARACTER 
GET THE RESPONSE 

HAS IT A -Y" (FOR YES)' 

IF YES BRANCH TO PROCESSOR 2 

UAS RESPONSE LEGAL (N FOR NO)' 

jTY^^^clfi^RINC 
I GET OVER THE ASCIZ 

GO BACK ASK AGAIN 

SET FLAG TUO PROCESSORS 

««« 

;TYPE ASCIZ STRING 
•GET OVER THE ASCIZ 



:ECHO 
;MAKE 
;IF NO 



T A NIMEF 
A NUMKR. 



GET THE DRIVE • 



BRANCH 



TO THE HIGH BYTE 



CONO SYSTEM BIT 
IVE C5UNT 



_ ^ INDEX 
STORE THE SYSTEM 12 WORD 
OTHE Tf - 



rEST 



,b5$ 

/•»/ 
PR02 

atPRONUM 



PROl: 

;THIS IS THE ACTUAL PROGRAM 

GO: MOV tLOGA.RO 

CLRB avIOEX! 

BR G02 

GO! : ADD ^.RQ 

CMP tOftvO.RO 

BEO EXIT 

G02: TST (RO) 

BPL C03 

BR GDI 

G03: MOV (R0),3«PRACT* 

JSR PC.C^'CLE 

JSR PC, UPLINK 

JSR PC.RDLINK 



;G6 do 



:;TYPE ASCIZ STRING 
:iGET OVER THE ASCI2 



;G0 BACK ASK AGAIN 

•CLEAR THE FLAG ONE PROCESSOR 



GET THE TABLE ADDRESS TO RO 
CLRB THE INDEX 

BRANCH T^OUNO INCRErENT ROUTINE 

INDEX THRU THE TABLE 
DONE» 

IF YES GET OUT 

IS THE DRIVE ACTIVE 

IF YES BRANCH 

NO TRY THE NEXT ONE 

PICK UP THE ACTIVE DRIVE WORD 

CALL CYCLE (PICK UP DRIVE CYL BASE. AND CALL MOUNT i 
CALL WRITE LINK TO LOAD REGISTERS FOR WRITE 
CALL READ LINK TO LOAD REGISTERS FOR READ 



HfiINO€C-ll 



540 
5HI 
54$ 

5He 

550 
551 
552 
553 
55M 
555 
556 
557 

IH 

5&0 
561 
562 
5&3 
564 
565 
566 

S69 
570 
571 
572 
573 
574 
b75 
S7b 

S'8 

s^q 

S80 

'.01 

■■fia 

' Hb 

•3^1 



-D2f»KI-£ 



78 



MftCYU 30A(1(}52) 2M-MflR-78 09:23 P»;C 
09:20 C0f1P«TIBILITY TEST 



H03 



13 



5Ea C013 




00344b 
ra3446 



003452 

o8§4il 




00%S2 
003SSM 
003S55 

B8^ 

oo; 

083570 

00357? 
00357M 
003576 
003602 
003606 
(XI 3610 
003t>l2 
003616 
0036=0 



^i;88 

001414 

10 040000 



^ QQ4250 
005632 



104401 003436 
000404 



000137 001440 



104401 
000415 



012704 
012703 
012702 

104401 
000405 



Q002M0 
010346 
104403 
006 
000 
104401 
000401 



104411 
012600 
110001 
000300 
042700 
042701 
006000 
103003 
OS2700 
000241 
006001 



003460 



000200 
000001 
001166 

003534 



003564 



177400 
177400 



000200 



EXITX: 



i:fe5S: 
£>4S: 



flOV 
CHP 
BEO 

^ 

BHI 
MOV 
JSR 
JSR 
TST 
BR 

TYPE 
BP 

.OSCIZ 
JMP 



EXITX 

•b!t14, (RO) 
EXITX 
(RQ)« 
EXTFR2 

■(R0),R1 



PC. HDL 

(R6)^ 

EXTFR2 



INK 



.bSS 

<1S><12>/D0r«!/ 
aiSTRRT 



;;TYPE ASCIZ STRING 
::GET OVER THE PSCIZ 

: RESTART 



jTHIS IS PROCESSOR 12 CODE. THIS ROUTINE RSKS FOR ftND UNPftCKS THE CONTROL 
JUOROS FROti THE FIRST PROCESSOR. 



SECOND: 



: :b5S: 



INSYSS: 



::67S: 
Lit. 



2S: 



TYPE 
BR 

.QSCIZ 

NOV 
MOV 
NOV 

TYPE 
BR 

.RSCIZ 

NOP 

MOV 

TYPOS 

-BYTE 

• BYTE 

TYPE 

BR 

.RSCIZ 

RDOCT 

MOV 

MOVO 

5UAB 

BIC 

BIC 

ROR 

BCC 

BIS 

CLC 

ROR 



,651 ;:TYPE «SCIZ STRING 

&4S liGET OVER THE ftSCIZ 

< 1S>< 12>/C0«PRTlfilLITY-SYSTEMt2/ 



•200.R4 
• i.R3 
•l6GA.R2 

.bSS 

64s 

<15>(12>/U0RD 



R3,-(SP) 

b 

0 

.671 
dbi 

/X/ 



(5P)+,R0 
RO.Rl 

RO 

•177400.ro 
•177400, Rl 
RO 
2S 

•BIT7,R0 

Rl 



;5ET UP M«SK BIT IN R4 
;SET UP WORD COUNTER IN R3 
:CET THE TABLE ADDRESS 

;;TYPE ASCIZ STRING 
;:GET OVER THE ASCIZ 



iCET READY TO TYPE UORD COUNTER 



;;TYPE ASCIZ STRING 
II GET OVER THE ASCIZ 



PICK UP THE OCTAL UORD 
GET THE FIRST DRIVE TO Rl 
GET THE SECOND DRIVE TO RO LOW BYTE 
CLEAR TH| UNUSED BITS 
CLEAR ThI UNUSED BITS 
XT RO 

5 CLEAR BRANCH 
IT IF CARRY SET 
AND CLEAR THE CARRY BIT 
NOW DO THE SAME FOR Rl 



ROTATE Rl 
IF CARRY 
SET DOWN 



103 



IftiNOCC-li-OZRKl-E 




5 

s? 

b03 

bOS 

til 
bl^ 
r n 

bis 
bib 

lie 

b?0 

b^^ 
b^M 

b25 

b^8 
be9 

b30 
b3j 

b3^ 

b3M 
bJS 
b3b 
b37 
b3e 
b3S 
bMO 
faSl 

bsa 

bH3 
b44 
b4S 
b4b 



COMPfif IBlLlTY "EST 



SEO C03M 



»7, 

OOJ/jO 
0037 CN 
003701, 
□03710 
003718 
00371b 
003722 
00372b 
003732 
0037 3(> 

OOHOlb 
<01b 

♦ol2 
00H023 
0OH02H 
00M02fa 



Q0H030 

00^03? 

<or 



- IMC 
012722 
000772 
OllOGl 

00M7g 
00H737 
00S737 
0QM737 
lOMMOl 
000M27 



OUOMb 
10S403 
00b 
001 
000000 
00077b 




_ 40Hb 
OOH050 
0OSQ5M 
OOMOSfc 
05h0(>2 
OOHOfeM 
OOH070 



032712 

? 31403 
1271b 
000207 
0b2702 
000207 



174000 

X1206 
100000 



0gS23M 
00M2S0 
00510M 
00Sb32 
003740 



003bb2 
040000 
003b5H 
000002 



3S: 



EXITfi: 



EXITS: 



FIL.DN: 



2S: 



: :fa5S: 



If: 



BIS 

ncvB 
JW 

tlOVB 
J5R 

INC 

en 

BIS 

ROP 

BCC 

BIC 

MOV 

TST 

CflP 

BEQ 

MOV 

BR 

MOV 

MOVB 

JSR 

JSR 

JSR 

JSR 

TYPE 

BP 

.flSCIZ 

MOV 

TYPOS 

.BYTE 

.BYTE 

HALT 

BR 



•BIT7.R1 

Rl,l.ft£. 
PC,M«SKE^ 
RO, 1(R2) 
PC.MOSKER 
R3 

INStS2 
R4. (fl2) 
R4 

EXITP 

•174000, f R2) 

r|^ro 

•DfivO,R2 
2S 

•Bins, iR2) + 
riL.DN 
(RO) .Ri 
Rl.Ri 
PC , MfiSK 
PC , D02 
PC.URLINK 
PC.ROLINK 

,bSf 

£>4S 



, IF ERROR 5£' THE BIT 
.SET DRIVE rlRST IN TftetE 

CALL THE MftSK CONTROL SUeROUTINe 

SET DRIVE SCCOfC IN T«iLl_(NExT HORO 

CftLL T>C MASK CONTROL SUBROUT I NE 

INCREfCNT THE MOW COUNTER 

GO BACK Arc GET n|xT UOAO 

FILLTHE TABLE (LAST WORD) 

WITH ALL BITS SET 

CO BACK IF NOT DONE 

CLEAR DOMN AND SECOND SYS'EM BI^S AT TftBLE 

GET AOQRESS TO RO (CURRENT TABLE) 

eliD 2T0 THE POINTER 

TABLE FULL' 

IF YES BRANCH 

FILL THE TABLE 

CO BACK TRY AGAIN 

GET THE WORD TO Rl 



FORM DRIVE • FOR MOUNT 
WRITE NEW INTO 
REAO SAMPLE (ALL DRIVES) 
;TYPE ASCI? STRING 
. :GET OVER THE ASCIZ 
<1S><12>/D0NE SY^tEM 2 RESTART SYSTEM 1. TYPE WORD / 



(RO) , -(SP) 

b 

1 

IS 



;GET WORD FOR SYSTEM 1 AND TYPE 



;HALT (FINISHED SYSTEM §2) 
:G0 BACK TO HALT 



;THIS ROUTINE SETS UP THE MASK BITS IN THE LOG TABLE FOR 
SYSTEM ig. IF A DRIVE IS DOWN NO BIT IS SET BUT THE MASK 
:IS SHIFTEft. 



MASKER: TST 
BMT 
MOVB 

RETRN4: ROR 
BCC 
MOV 
RTS 

IS: BIT 
BEQ 

MOV 
RTS 

2S: ADD 
RTS 



(R2) 
RETRN4 
R4, <R2) 
R4 
IS 

t^XITB, (SP) 

■eiT14, (R2) 
2S 

•EXITA, (SPJ 
PC 

t2,R2 
PC 



IS THE DRIVE UP 

IF MO. JRAMCH 

MOVE THE MASK BIT In Thl 

ROTATE The mask 

DONE'.IF MO.BRANCH 

set u^ for Return 



IS this system • 2'S DRIVE' 

IF NO. branch 

SET U^ FOR RETURN 

INDEX THRU LOGA TABLE 
RETURN 



I HOLL 



00^072 022737 000010 



; ROUTINE TO BUILD THE ACTIVE LOGICAL UNIT TABLE 
001330 STORE: CMP ilO.aiKYTEMP ;IS INPUT A LEGAL NUMBER' 



J03 



nfiir<)iC-ii-0Z'<Ki E 



bSQ 

bS3 

bSS 
bSb 
bS7 
bS8 
bSS 

bbl 
bba 

bb3 

bbM 

bbS 

bbt> 

bb7 

bbe 
bbq 

b70 
b71 
b72 
b73 
fa 74 

fars 

b77 
b7e 
fa/S 
b80 

faei 
baa 

bB3 

bas 

b8(> 
b87 
b88 
b8<) 

bSO 

b91 

bna 
bia 
b^s 
b«Jf» 
b% 

b9- 
b98 

b-^J-l 
700 
701 

7oa 

703 
7 OH 



OOMIOS 

oosuo 




0OM172 
00S172 



00M17H 
00M17b 



OOseTM 

iS 

4304 
CX34310 
004314 

004 J lb 
004322 
0043P4 



104401 
000407 



000207 





137 

1 
0 

110102 
042702 
0237 
102 
102 
102 
006102 
006102 
110237 
110237 
004737 
000207 

106237 
000240 
1 12737 



OS: 20 



oo:j30 

0013X 
go 1330 
001311 
00120b 



0030S0 

002644 
004154 



30fl':052- 2H-nflR-78 OS. 23 PP'iE 
COrPPTIBlLlTY TEST 



040000 

006752 
001324 
00125b 
005234 
OOUbb 



00 1206 



000370 
001314 



001353 
001335 
00431b 



SEQ 0035 



TBLFUL: 
iLEGflL: 



: :fa5S: 



CYCLE: 



CYCL2: 

CYCLE2: 

LDFLG: 

2S: 



3S: 
4$: 

D02: 



001324 

000005 001321 



SUE ILECftL 

SUA8 a»KYTE1P 

MOV StKYTEMP, (Rl 

CLR aiKYTEMP 

INCB StORCNTl 

CMP tORVO.Rl 

BEO T6LFUL 

RTS PC 

WOV iSECSYSpCSPl 

RT5 PC 

MOV •ftUT5L2,(SP) 

TYPE .faSS 

BR 641 

.ftSCIZ /ILLEGAL INPUT/ 

RTS PC 



IF NOT BRfWCh 
ftwIGN DRIVE • FOR TABLE 
PUT THE WORD IN THE TABLE 
CLEPR THE TEMP WORD 
INCREMENT THE COUNTER 
IS THE TABLE FULL' 
IF YES BRANCH 
IF NO RETURN 

IF TRBLE FULL SET UP FOR SYSTEM 
RETURN 

IF ILLEGAL RESPONSE, GO BACK 
J TYPE A|gl^ STRING 



•2 



{GET OS 
; RETURN 



rHE ASCIZ 



:THIS ROUTINE GETS A DRIVE • AND BUILDS A TABLE OF 
CYLINDER ADDRESS FOR USE BY URlTE. (R0)»AOORESS OF ACTIVE 
WORD iN LOGICAL TABLE. IT ALSO SEts AND CLEARS THE MASK BITS 
OF THE TABLE AS OPERAI IONS INDICATE 



MOUNT: 



MOV (R0),R1 

BIT •BITl4,Rl 

BEO CYCL2 

JMP 3iSEC0NE 

MOVB 33ID£X,R3 

hOVB MSKTBl{R3) ,R2 

JSR PC. MASK 

MOV •l6ga.r? 

CMP R0,R3 

8NE 3S 

BIS Ra,(R3)+ 

8R 4$ 

BIC R2.CR3J+ 

CMP •DRVO.R? 

BNE 2S 

SUA6 Rl 

NOP 

MOVB R1.R2 

BIC •3>0.R2 

MOVB R2»ailDRIVE 

ROL R2 

ROL R2 

ROL R2 

ROL R2 

ROL R2 

MOVB R2,a«DSKTMP*l 

MOVB R2,ai0SKA0R>l 

JSR PC , MOUNT 

RTS PC 

INCB aalOEX 
NOP 

MOVB iS.atECNT 



GET THE LOGICAL UNIT ACTIVE WORD TO Rl 
IT ON SYSTEM 12 



■2 

:x VALUE 




IS 

IF NO 
GO TO . . 
GET TH| I 
GET THE r' 
CALL THE 
GET TABLE 

IF ^^i^NCH 
IF YES SET Bj 
BRANCH TO SCI 
CLEAR BITS T( 
DONE 
IF NO GO BACK 
GET DRIVE • TO LOW BYTE 
•*« 

GET IT TO R2 

CLEAR THE UNUSED BITS 

GET THE DRIVE « 

SHIFT THE DRIVE • TO 

ALIGN IT FOR THE DRIVE ADOR 

KEEP IT MOVING! 

A LITTLE MORE! 

THERE IT IS 



TINE 
TO R3 
sTO FIRST ADDRESS 

TS TO SHOW WRITE 
IF DONE 

SHOW OVER-WRITE 



:GET IT TO DISK ADOR. 
;CALL MOUNT 
(RETURN 

INCREMENT THE INDEX 

SET ERROR CNTR TO 5 



TEMP. 



Ko; 



DZRKir pu 



?M-n«P-78 OS- 20 



30fi(i052) 24-rfifi-78 OS: 23 Pft'iE Ifa 
COflPflTIBlLlTY TEST 



70b 

70? 

708 

709 

7.') 

71 . 

712 

713 

71^ 

7i' 

7it> 

717 

718 

7,3 

7, n 

7i 1 

7,^ J 
7c"^ 
71^5 
7('b 
7^ ' 
7, 

7,'i 
7,lfJ 
7ji 
7.V 

7 J 1 

7;?M 

7J' 
7.i»:> 

7;r 
7;w 

7^0 

7m 

742 
7SJ 
7M4 

7MS 
74fe 

7M--' 

7se 

7m 
750 
751 
752 
753 
754 
755 
75fc 
7'-,7 
7be 
759 
7b0 



0O4340 

004344 
iTh 
54402 

004404 

004405 
004408 

004412 

CX3444fo 
00444fe 
004452 

004514 
G0-*S14 
0045 lb 
00452 



104401 004?4b 
000414 



01374b 001314 
104403 

001 

000 

104401 00M4i4 
000415 



104401 004454 
00GS20 



000000 

004737 004524 
000207 



44s : 



: :b7S: 



TYPE 
BR 

.ASCIZ 

MOV 

TYPOS 

.BYTE 

.BYTE 

TYPE 

BR 

.ASCIZ 

TYPE 
BR 

.0SCI2 

HPLT 

JSR 

RTS 



4mI* ii get over ..^ 

<i5><i2>/nOUNT pWk 0« drive •/ 



;;TYPE PSCIZ STRING 
THE fiSCIZ 



DRIVE,-(SP) 

1 
0 

,b7S 



SPVE DglV 
CO TYPC— 



<'T5><12>/f1«<E Pfl6<:'^i5l?E'"ENp£E/ 



FOR TYPEOUT 
JttL ASCII 
1(5) 

RQING ZEROS 
12 STRING 
THE PSCIZ 



,b<3« 

<15><12> /PRESS 



PC.INITIL 
PC 



: ;TYPE flSCIZ STRING 
ijGET OVER THE PSCIZ 
c6ftTlNUE WHEN DRIVE RDY/ 



;C«LL INITIPLIZER 
I RETURN 



:THIS ROUTINE INITIALIZES P DRIVE PUD INSURES THPT IT IS REPDY AiSO 

IWRITE ENftSLED, IT IS ENTERED FROM MOUNT OR FROM EXECUTE IF OPERPTION FPILS 





Ql004fe 






INITIL: 


MOV 




013700 


□01334 






MOV 


0O»53^ 


0S2700 


001777 






BIC 


0045.% 


005C37 


0013Mb 




INITI2: 


CLR 


0Q4S4? 




001323 






CLRB 


OtWSHb 










NOP 


0OM5S0 
0045S4 




174b22 






MOV 


812777 
004737 


000001 


174b0b 




MOV 


0O45ba 


OOSblH 






JSR 


OOMSfcfc 


105777 


17457b 




IS: 


TSTB 


004572 


100M23 








BMI 


004574 


005237 


0013Mb 






INC 


CWNWW 


001372 








BHE 


Q0Mb02 


104401 


004b 10 






TYPE 


OOHbOb 


00041S 








BR 










::bSS: 


.PSCIZ 


004b42 








feAS: 


00Hb42 


010077 


174S30 




2S: 


MOV 


004b4b 


105777 


174S12 






TSTB 


0Q4b52 
OOSfeSH 


100415 








BMI 


10M401 


004bb2 






TYPE 


OOMbbO 


000411 






: :b7S: 


BR 

.PSCIZ 


00M704 








i>ii: 




0QM7O4 
00470b 




000040 


174450 


3S: 


BR 
BIT 


0OM714 


001420 








BEQ 


00471b 


104401 


004724 






TYPE 


004722 


000414 






: ibSS: 


BR 

.PSCIZ 


00M754 












004754 


000b70 






BR 



RO.-(SP) 
awrSKPQR 
•1777. RO 

sitimA 

aiTIMR2 



.RO 



RO.aRKOP 
■l.SRKCS 
PC,SMTM£ 

smcs 

2S 

StTIMR 
IS 

.bSS 

<15><12>^CUNTR0L 
RO . 9RKDP 

smos 

3S 

.b7S 



<15><12>/DRIVE N6t READY/ 



SAVE RO 

GET THE DRIVE • TO RO 
CLEAR THE UNUSED BITS 
CLEAR THT TIMER 

»•* 

GET DRIVE • TO 'DA' REGISTER 
ISSUE CONTROL RESET ♦ GO 

DID CONTROL READY SET 
IF YES BRANCH 
IF NO INCWMENT THE TIMER 
IF TIMER NOT ZERO BRANCH 
;TYP£ ASCIZ STRING 
[get over the ASCIZ 
ftESET TIME OUT/ 

DRIVE :4UNe|R TO 'DP' REG. 

IS oriveMaoy 

IF YES BriWCH 
;TYPE ASCIZ STRING 
GET OVER THE PSCIZ 



INITI2 
•6ITS,9RKD5 
4S 

< 15><12>/DRIVE U 
INITI2 ;YES. 



BACK TRY AGAIN 
DRIVE WRITE LOCKED' 



GO 
IS 

IF NO, BRANCH 
, ;TYPE PSCIZ STRING 
i-GET OVER THE PSCIZ 
ftiTE PROTI 



ECTED/ 
GO BPCK TRY AGPIN 



iCiirccc-ii-ozPKi E n«cyii 



7ba Q0M7b£ 
7% 3 PQ*|^^ 




771 OOSoIh 

77a oofo: 

773 0050^ 

77M 
77S 
77b 
777 
-78 

779 0OSO76 

780 QOSOTb 

781 005100 

782 005102 




810 005232 

eu 

812 
313 
814 
815 

8 lb 005234 




) 24-ri«R-78 0S:c 
COMPfiTIBILlTY TE; 



POOE 



L03 

17 



SEO 0037 



IQHMOi 
0OOH14 



000727 
Ol|bOO 
000207 




004737 
000742 
000207 



01054b 



00504b 



00131b 
001314 

00120(> 
005302 



0013f>2 

005402 
000020 



13Ci2 

000020 
00l3b2 

005312 



5S: 



71: 



bS: 



flov 

MOV 

JSR 

TST8 

BPL 

BIT 

BfC 

INC 

BNE 

TSTB 

B^€ 

INCB 

8R 

TYPE 
BR 

.PSCI2 

BR 

MOV 
RTS 



RO.aRKDft 
•l^.SRKCS 

PC . Smthe 

SR^CS 
5S 

■lOO.SRKDS 
bS 

SlTIMR 
5S 

9«TIMR2 
7S 

9aTIMR2 
5S 

.71S 
^OS 



;GET THE DRIVL ■ TO 'Oft' REGISTER 
:IS5UE DRIVE RESET ♦ CO 



REOO/HRITE/SEEK REflOY BIT SET' 
IF YES. BRANCH 

NO. in6r£ment the timer 

GO BACK ftNO CHECK IF TIMER NOT 0 



;TYPE PSCI2 STRING 
GET OVER THE PSCI2 



<15><12>/DRIVE Rt^ET TIMED OUT/ 



4S 

(SP)*,RO 
PC 



ii 



BACK, TRY AGAIN 

TORE RO 

URM TO CALLER 



:THI5 ROUTINE TAKES CARE OF ALL LINKAGES FOR THE 
EXECUTE ROUTINE. IT FORMS THE ADDRESS AND SETS UP ALL THE 
REGISTERS FOR THE URITE OPERATION 



URLINK: 



0013b2 IS: 



2S: 



00133b 
QQ1340 
001332 

001334 

001334 



001334 3S: 



CLR6 

NOP 

MOVB 

ROL 

MOV 

JSR 

BR 

RTS 

MOV 

MOV 

MOV 

JSR 

BIT 

BNE 

BIS 

COMB 

BR 

BIC 

COMB 

INC 

JSR 

BR 

RTS 



StCOMND 
SiORIVE.Rl 



Rl _iNM(E IT A UOn 

DRVOCRD.aiPATTRA TpIcK UP THE 
PC.CYLAM :CALl CYLIWPER 



■PATTRN.9«» 

SifH.atOSKAOR 

MITH.atDSKAOR 
||PATTRN 

•BITH.8tOSKAOR 
g|PATtRN 

, CYLOFF 



; INDICATE MRITE OPERATION 
■ #*# 

•PICK UP THE DRIVE • 

UORD INQCX 

'-^ PATTERN 

SS 

LAST BASE 
BASE 

THE OUTPUT 

COUNT 
ROL+ STATUS WORD 




PC 



DATA 
AND EXECUTE 

OAl 

INC. THRU SELECTED CYL. OFFSET TABLE 
GET THE CYLINDER VALUE 
RETURN HE^ IF MORE TO READ 
RETURN HE^ IF FINISHED 



:THIS ROUTINE EXPECTS TO FIND A MASK IN R2. AND FROM THIS MASK 
BUILDS A TABLE (AT CYLT8L) OF CYLINDER ADDRESS OFFSETS; THE TABLE 
;IS TERMINATED BY A 1377 



MASK: 



MOV 



R5,-(SP) 



;SAVE R5 



fifiIf«CC-U-D2RKI-C nPCYU 
DZRKIF.PH 2H-MWR-78 09:20 



30ft(luS2) 2M-M(»R-78 09:23 
C0r»»«TI8ILlTY TEST 



M03 

PAGE 16 



SEQ 0038 



000200 




8S« 

BbO 
8bl 

8b3 
8fc4 
BfeS 
Bbfe 

Bb8 

870 
fl^l 



□053bM 
005370 

S7H 
005400 



00127H 



000377 



0012&6 
00127M 



000377 



IS: 
2S: 



BIT 

aeo 

HOVB 
INCB 
ROR 
BCC 

woy8 
riov 

RTS 



■200, R3 

RH 

•CYLTBL.RS 
R2.R3 

15, (R5)+ 
RM 

!i 

•377, (R5) 
PC 



SET UP THE COMPARE n«5K 

000RE55 

IS THE mSK 8IT SELECTED IN BASE 
IF NO _B»»NCH 
HOVETHE CYLir 
INCfeHEHT T« 
ROTRTE THE C 
- -iT 



IF NOT DONE CO BPCK 
RETURN TO CRLLER 



^R BASE TO THE TABLE 
NASK 



:THIS ROUTINE FORMS ft CYLINDER ftOORESS FOR BOTH^THE REflO AND WRITE ROUTINES 
iUHEN THE BRSE TABLE IS FULLY INDEXED IT RETURNS TO PC +2 OF CALLER 



017777 
00133S 



00127M 
000002 



CYLAOR: MOV 
CYLA02: MOV 
CYLOFF: MOVB 
NOP 
CMPB 
BEQ 
CLR 
MOVB 
POD 
ROL 
ROL 
ROL 
ROL 
ROL 

001334 BIC 

BASINC: INC 
NOP 
CMP 
BEQ 



RETRN3: 



RTS 



iBASE.R3 

•CYLT6l,R2 

(R2),R4 

•377 . R4 

BASINC 

-vSP) 

(R3), (SP) 

(SP)+.R4 

R4 

R4 

RH 

RM 

R4 

•017777, a •DSKAOR 

RM,9«0SKA0R 

PC 

R3 

•CYLTBL,R3 
RETRN3 

PC 



GET THE CYLINDER TABLE ADDRESS 
GET tJI SELECTED CYL BASE AODR. 
GET ThI SELECTED CYL VALUE TO R4 

IS*IT THE TABLE TERMINATOR' 
IF YES WAMCH 

igf^fe-^br-ffiSsS OH THE 



AND IT TO THE 
SHIFT THIS l«l 
TO ALIGN T; ~ 

STORE THIS 
CLEAR ALL 
PUT IT IN 



STACK 
SELECTED OFFSET 

N&Y FORMED 
WITH BITS 
AND 
IN OSKAOR 
T DRIVE NUMBER 
ADR 




PICK UP ADDRESS OF NEXT BASE CYL. 
«*• 

ARE YOU FINISHED' 
IF YES. BRANCH 
NO GO 6aCK 
SET-UP FOR PC+2 
RETURN 



; ROUTINE TO PERFORM INDICATED FUNCTION AND CHECK FOR 
I DONE AND ERRORS 



O05so^ 


005037 


00134b 




EXECUT: CLR 


00540b 


000240 






NOP 


005410 


105037 


001323 




CLRB 


oos4m 


013777 


001334 


173754 


MOV 


005422 


013777 


00133fo 


173744 


MOV 


00S430 


013777 


001 3M0 


173734 


MOV 


00543b 


013777 


001332 


173724 


MOV 


005444 
005450 


004737 
10577' 






J5R 

CHECK 1: TSTB 


0054C,4 


100011 






BPL 



3MTIMR 

SSoIkaSr.srkda 

9»miSA0R,9RKBA 
a»UR&NT,SRKUC 
9^C0NTRL.9RKCS 

TIME 



HALT^HE^ To"cHECK COMMAND ABO JT TO BE EXECUTED 

fbS?'Tgl'^§?&<'iSS8ES. ROISTER 
LOAD THE BUS ADDRESS REGISTER 
LOAD THE WORD COUNT REGISTER 
LOAD THE CONTROL REGISTER 

I ^''^om^rSl^Seaoy Het 

IF NO BRANCH 



N03 



nfiir«ec-U-07RKl-E MACYU 30fi'1052i 24-rt<W-78 09:23 PPGE 19 

OZRKIF.Pll 2M-f1«R-78 09:20 COMPftTIBILlTY TEST 



5E0 0039 



883 
88H 
88S 

esb 

B87 
888 
889 
890 
891 
892 
893 
89H 
8<Jfj 
89b 
897 

i'^ 

9(X) 
9131 
902 
903 



92H 



927 
928 



00S(>22 
00Sb26 

oosbao 




72 
7M 
7b 

704 
710 
0057 IM 

00573b 

005752 
OOS7bO 



7 




mi 

005337 
001375 
000207 



OlOOHb 
0002«40 

JiirSi 

012705 
000S05 

gli;8i 



011100 



042700 
11C037 

0007M7 

?lii3? 

012737 
0002M0 



0013&0 
0013b0 

00134b 

001323 

001323 

004524 
00553b 



000500 
00134b 



QQ0377 
OOUeb 
001305 

000002 
00120b 



00131b 



177770 
001317 



005302 

mm 

00735b 



IS: 
TIME: 



IS: 



::b5S: 

00134b 5MTME: 
IS: 



f ST 
BEO 
CLR 

6?5 

INC 

NOP 

8t€ 

TSTB 

BNE 

INCB 

?SR 

TYPE 

BR 

.PSCIZ 

BR 

MOV 

DEC 



^•ERRFLG 

StERRFLC 

|XECUT 

a»TIMR 

CHECK 1 

5tTIMR2 

IS 

StTIMR2 

CHECK! 
PC.INITIL 



ERROR' 

IF NO BRftNCH 
CLEAR THE FLftG 
TRY flCAIN 



; SECOND TIMEOUT' 

;IF YES BRANCH 

: INDICATE SECOND TIMEOUT 

;G0 BACK 



;;TYPE A: 
■GET OVI 



CI2 ! 
R THI 



iTRING 
ASCIZ 



TS 



<1S><12> /TIMED Odjt ON OPERATION RETRY IN PROGRESS/ 

EXECUT 
•SOO.StTIMR 
StTIMR 
IS 

PC 



:THIS ROUTINE CHECKS TO SEE IF A DRIVE IS ACTIVE FROM A 
WRITE OPERATION. IT GETS THE READ MA§K_TO R3,^ANp.THE, 
EXPECTED DATA pAtTERN TO "PATTEr " * 

; CONTROL. 



'RN'\ and then' calls ADDRESS 



RDl: 



R02: 



RD3: 



00l3b2 



001334 RD4 
RD5 

00133b RDb 



RDL INK: MOV 
NOP 
BISB 
MOV 
MOV 
BR 
ADO 
CMP 

m 

§PL 
R 
MOV 
MOV 
SUAB 
BIC 
MOVB 
ROL 

^ 

JSR 
BR 
BR 

iile 

MOV 
NOP 



RO,-(SP) 

•377.a«C0MND 
•LOCA.Rl 

•sect6l.R5 



•2.R1 
•OAVO.RI 

EXIT2 
(Rl) 



S8? 



(Ri).RO 
RO 

•177770.R0 
RO.StURTNeY 
RO 



RO 



GET THE 
P 



SAVE 
««« 

RATION 
table ADDRESS TO Rl 
SECTOR TABLE ADDRESS 
OVER THE INDEX. FIRST PASS 
2 TO THE AOORESS 
YOU THRU THE ENTIRE TABLE 

ThI SJvE ACTIVE 
IP YES BRANCH 
IF NO GET NEXT UORD 
ftTT Tuc ACTIVE UORD TO RO 



DRVO(RO),atPATTRf) 
PC, MASK 



Pg^CYLADR 
RDl 

StQSKTMP.StQSKAOfi 
(R5)+.a«6SKA0R ; 
•ROBUPF.aiBUSAOR 



GET THE 
COPY THE 
GET THE 

make it an 
pick up the 
-hTmask 




• TO THE LOU 
HE DRIVE • 
IVE • 



BYTE 



INDEX 
HE^Tfi P 
SK SUBROU 



PATTERN 
TINE 



rQRH R_^VLINDER ADDRESS 
RETUfW HERE IF NOT LAST BASE ADDR. 



i_ ADDRESS. RETURN HERE 
VE • Bits IN DISK ADDR. 
R BITS IN DISK ADDR. 
BUFFER ADDR. 




04M01 



177777 
17X70 

001321 



000015 
177777 
OQSblH 
173156 

CiOOlOO 

001322 

001321 

00b2S0 



30»( iOS2 
001332 
00133^ 




032777 IHOOOO 1732l»0 



1732Mfe 
17322H 



17317H 
1731Sf> 



173142 




804 

20 



atCONTRL 



SCO OOHC 



001334 RD7: 



EXIT2: 



SlTM.9lOSKflOR 

pc.cylotf 
rd4 

RDl 



flOV 
RTS 




RCflO CONTROL U090 



ISK «00R 



CTOR POINTE'l 
~r TMRT MS RERO- 



T 

RCC 0 MTA 
, HE JCLECTEO CYL TABLE POINTER 

60 NEXT ROORESS 

If HIS U IS NOT T>C LAST BASE AOOR 
IF OCT NEXT MORO-ORIVE FINISHED 



^|TgRE_RO 



^)*.R0 

;THE EfWQP CHECK ROUTINE CHECKS IF AN ERROR OCCURRED 
Ion URITING OR READING. 

■IHOOOO. aRKCS 

TSTSm 

ii.awKc^ 

LG 



ERRCHK: BIT 
NOP 



IS: 



JSR 
NOV 



173202 TSTSNl: 



iff 

NOP 
BEO 
NOV 



306302 



2S: 



RESTRT: 



::&5S: 



TB 




URN TO NAIN LINE CODE 



ERROR OR ERROR SET* 




XANINE 

cnTrol 



REG. ,ECT. 



PREVENT UPDATE OF AOOR) 
T SET (FROtI CMTROL RESET) 
~ HUNG HERE RUh STATIC) 

OTSTIHES' 
> HAVE OCCURRED 
SET' 



DRIVE RESET. CO 
(PREVENT UPftATE OF AOOR) 



Sis 

TYPE 
BR 

.ASCIZ 



■|00,aRKOS 

aiECNT 
IS 

till' 

<lS)<12>/3 



j-R/M/S READY- BIT SET' 
;IF NO WAIT! (IF HUNG HERE RUN STATIC) 
; j^CREM|NT^ S|jJK^^jgCO«PLETE_COUNTER 

:»»» 



FALL THROUGH 



'SIN 



IfilNOCC-li 



-02RKX- 



•78 OT:20 



30A 



10S2) 2H-f1flR-78 OS: 23 PAGE 
COMPATIBILITY TEST 



C04 

21 



SCQ □0'*. 



OObSOH 

jggOH jgso^ o<»3.e 





OObSlb 




ocK>ba(> 

Q0(>i>2(> 

00fefe32 

OObfcHfc 
OOb&Hb 

oobbsa 



105037 



Jl??37 
01270M 
01370S 
020524 
OT1S15 
105737 
OOIOMC 
104401 
000420 



152737 
113748 
104403 
001 
000 
104401 
000411 



104401 
000405 



01374b 
104403 



IS: 



;:b7f: 
2S: 





Q0l31b 






000004 






lOOOOC 






100000 


2 J: 


01270b 


001100 




o88io7 


003324 


RETRN2 



TYPE 
BR 

.05CIZ 



TYPE 
BR 

.ftSCIZ 



TSTB 
BPL 
(CD 
MOV 

SIS 
TS 
BIS 
flOV 



<lS><12>/'5 ERRORS' OCCl 



TRINC 
ASCIZ 



,b<J$ TYPE ftSCIZ STRING 

ttSt iGET OVER TH| 03CIZ 

/DRIVE OECLftRED DOUH'. * NOT TESTED !/ 



T5 



^COriND 

•4.SP 

(SP)*.RO 

•8ITlS.(R0) 

PC 

tBITlS. (RO) 
•STACK. SP 



TEST THE 
IF WRITE 




I - 
POINT TC 
GET RO ^ 
SET THE D6MN BIT 
RETURN TO MAIN CODE 
SET THE DOWN BIT 
RESTORE THE STACK 



;THIS ROUTINE CHECKS A SECTORS WORTH OF DATA ON A HEAD OPERATION 
llT ALLOWS c ERROf; PRINTOUTS PER SECTOR 



001320 

000005 001350 

007358 

00l3b2 



00 1320 
00b520 



000377 001320 
001317 



RDCHK: 



IS: 



:;b5S: 



00bb04 



00bb34 



001334 



2%: 



SS: 



MOV 

MOV 

CLR6 

NOP 

MOV 

MOV 

MOV 

CMP 

tItb 
tyIe 

BR 

.ASCIZ 

Bise 

MOVl 
TYPOS 

■m 

TYPE 
BR 

.ASCIZ 



TYPE 
BR 

.ASCIZ 

MOV 
TYPOS 



R4,-(SP) 
RS. -(SP) 
atteRTLG 

•S^ailCHKCNT 

a#ATTRfl,R5 
RS.'RH)* 

Hhorflg 

.65S 
44S 

<15><i2> /ERROR! 

•377.9tH0RFLG 
SMJRTNBY.-CSP) 



SAVE R4 



HE PRINT HEADER FLAG 
••• 

PUT ERROR COUNT IN CHECK COUNT 
T TH| TABLE AQORESS TO R4 
T T« E>ff?CTE0OATA TO R5 
THEY THE SAME 
H 

R FLAG CLEAR 
H 

.:TYPE ASCI2 STRING 
iiCET OVER THE ASCIZ 
6AtA WRITTEN BY DRIVE / 

;5E1 THE HEADER FLAG 

•PICK UP THE DRIVE I THAT WROTE 




,b7S 

/ CANNOT BE READ 



;;TYPE ASCIZ STRING 
I -GET OVER THE ASCIZ 



.bSS ;;TYPE ASCIZ STRING 

^BS 1 1 GET OVER THE ASCIZ 

<IS><12>/ ADDR=/ 

atOSKADR.-(SP) ;PICK UP THE ADDRESS THAT FAILED 



ifirrC€C-U-D2RfI-E riftCYll 30«(1052) 2H-f1ftR-78 0S:23 POSE 22 

DZWIF.Pll 2M-MfiP-78 C«:20 COflPfiTIBILITY TEST 



D04 




74b 
00&750 



)7bS 
OOfeTTO 
00b 772 

007' 
00700b 

W70 lb 

'W 

00/U30 
'X) ^QMO 

iu * ; c"^ 
10 ' : 

j.j • I 'b 

1(1 N 



lOMqoi oobbbH 

000M05 



OlOSHb 

JgHMg^ OOb7lO 



O'b^Hb 
iOHHOH 

i 

00l2Sb 
000207 





105701 

loosgs 

1M5701 
110122 
0OO7b2 
110112 
012702 
lOMMOl 
OOOHPS 



10 MOl 
OOOHP-^ 



00S203 
lOMMOi 
OOOMOS 



17777b 
001350 
OlOaSb 



00125b 
00124b 
001 ibb 

177400 

000001 

0003b0 



0012Mb 
00704b 



00712b 



00720fe 



SCO 



IS: 



::73«: 



3S: 
MS: 



l7.. 
70S 

/ EXPCTDa/ 
R5,-(SP) 

/ RECVOa/ 

-2(R4),-(SP) 

StCHKCNT 
4S 

«nANSEL.R4 

PC 



:;TYPe ftSCIZ STRING 
::GET OVER THE OSCIZ 



;P1CK UP THE EXPECTED DftTft (GOOD 

:!TYPI 
:;GET 



R4 



PICK UP THE RECEIVED OOTP (BOO) 

CREHENT THE CHECK COUNT 
BR«NCH 
OLC CHECKS' 
IF NO. GO BACK 




itURH TO CALLER 



:THIS ROUTINE BUILDS fl TABLE OF PARAMETERS TO PASS TO THE SECOND SYSTEM 
:IT PACKS THE INFO FOR TUO DRIVES INTO ONE UORO 

SECONE. CLR 
NOP 



bS: 



IS: 



2S: 



3S: 



::b5S: 
&4S: 



::b7S: 

£>&S: 

4S: 



MOV 
CLR 
CMP 
BNE 
MOV 
MOV 

BIC 
ROLB 

i!i 

TSTB 

Sl^B 
HOVB 
BR 

MOVB 
MOV 
TYPE 
BR 

.ASCIZ 

TYPE 
BR 

.PSCIZ 

INC 

TYPE 

BH 



(TBL.RS 

STBL.R2 
6S 

•LOGA.RO 
(RO)^.Rl 
Rl 

•177400, Rl 
Rl 

■ilTO.Rl 
Rl 

■ibO.Rl 

Rl. (te)* 
IS 

R1.(R2) 
■pASTBL,R2 
,b5S 



: CLEAR THE UORO COUNTER 
:**« 



GET THE ACTIVE TABLE ADDRESS 
PICK UP THE WORD 
RlV" 



GCT 
CLEAR 



JVE • TO THE LOU BYTE 
UNUANTED BITS 



ROTATE THE BYTE. UAS OOUN SET' 
IF NO BRANCH 

SHOU THE DRIVE AS DOWN IN THE TABLE 
IS THIS THE SYSTEM «2 DRIVE' 
BRANCH IF YES 
CLEAR THE UNUSED BITS 
GET THIS ■ TO THE PASS TABLE 
GET THE NEXT UOTO FROH ACTIVE TABLE 
GET THE LAST DRIVE TO THE PASS TABLE 
RESTOf 
YPE 




TABLE POINTER 
STRING 



•GET OVER THE ASCIZ 



<15><12>/L0AD An6' START ADDRESS 210 ON SYSTEM tS 

.b7S ;; TYPE ASCIZ STRING 

t>b% 1 GET OVER THE ASCIZ 

<15><12>/AN0 TYPE THE BELOU UHEN ASKED FOR IT./ 



R3 

.b9$ 

&BS 



INCREMENT THE UORO COUNTER 
:TYP£ ASCIZ STRING 
;GET OVER THE ASCIZ 



E04 



12S 

\fi 

132 
133 
13H 
13S 
13b 
137 
13(1 
13S 

ISO 

141 
142 
143 
144 
145 
14b 
147 
148 
14S 
ISO 
151 
152 



2M-f1fifi-78 0<J:20 



0i03Hb 
lOHMg3 

10Hh8i 
OOOHOl 



300' 1052 '_2:jr!?«gj^|^Y0^^|f P<WE 23 




00M737 
004737 
(513700 
000137 

00735b 000400 

01035b 000240 



0103b0 
0i03b0 
0l03b4 

010370 



104401 
000401 



007234 



100000 
000200 



00727b 



177400 
OOUbb 



OOUOO 

00M224 
0QSb32 
001100 
003372 



17777b 
17777b 



0103bb 



COMPftTII 

bes: 



.:71I: 



SS: 

«ETFR2: 



::b5S: 
64s : 



IS: 



nov 

TYPOS 
.BYTE 
.BYTE 
BIT 
BNE 
BIT 

M«LT 



TYPE 
BR 



ROOCT 

flOV 

BIC 

NOV 

TST 

BHI 

rtOV 

MOV 

NOP 

JSR 

JSR 

MOV 

JMP 



ROBUFF: .BLKU 
MRNSEL: NOP 



BACONC: 



::bSS: 

44s : 



TYPE 
BR 



R3.-(SF' 

b 

0 

.71$ 
^OS 



MOV 
TYPOS 
.BYTE 
.BYTE 
TYPE 
BR 

.ftSCIZ /=/ 

( R2 ) ♦ , - ( SP 1 



b 
1 

IBIT15,-2'R2) 
SS 

•BIT7.-2 2) 
4S 

-(RO) 



,b5S 
64$ 



.ftSCIZ <IS><12> /WORDS/ 



(SP)*.R2 
•i77M60.R2 

IS 

RM.atSPPSS 

-(A4).R1 

PC.LOFLG 
PC.ROLINK 
atiPASS.RO 
asEXTFR^ 

400 



.bSS 
64S 



SEQ 



.RSCIZ /'/ 
.SBTTL OSClLLftTING SEEK ROUTINE 



;GET THE WORD COUNT ON THE STAC** 



.:TYPE RSCIZ STRING 
;;GET OVER THE RSCIZ 

:GET THE FIRST TO THE STftCK 



HAS THIS THE TRBLE TERMINRTOR 
BRANCH IF YES 
TERMINATOR' 
IF NO BRANCH 



:;TYPE ASCIZ STRING 
;;CET OVER THE ASCIZ 



;GET THE WORO FROM SYSTEM 2 TO TABLE 

;SET POINTER LOOK FOR FIRST "JP" DRIVE 
; DRIVE UP' 
IF NO BRANCH 



:CALL 002-^ 
:CALL READ CHECK 

;C0 TO END OF TEST 



.•TABLE TERMINATOR 



: ;TYPE ASCIZ STRING 
;|G£T over the ASCIZ 



F04 



flAINO€C-li-0ZRKl-E 



OZPKIF.Pll 



HOC '11 30fi'1052i 2'*-naR-7B OS; 23 Pft^ S** 



OSCILLATING SEEK ROUTINE 



.154 
1 155 
115b 
1157 

: 158 

. .59 
! I&O 
Ubl 

jiba 
. ibb 



I 7,^ 
/4 

. l^'S 
1 17b 
I 177 
! 178 
1179 
1 180 
1 181 
I 182 
1183 
1 18M 
1185 
118b 
1187 

use 

1189 
1190 
1191 
1192 
1193 
1194 

iiH 

1197 
1196 
1199 
1200 

lIM 
120H 

liol 

1207 
1206 



01C370 
0i0370 
01C37^ 

0nM32 

0IQM32 
010M3b 

01>t4H 

QirMSC 

OlCMSa 
Q10»?H 

Ol'JH'jT 

'.i Mbt. 

oio»>aD 
cinsoM 
oiosio 
aiDe.i2 

01051b 
010S22 

8ig5» 
iOS3M 
0105M0 
010542 
010S4b 
Q105S0 
010S54 

01 0842 
010b4| 
OlObHb 

010724 

§lQ7s 
107: 

0107% 
010740 
010745 
5l074b 

oiStIS 

OlOTSb 

§io7|>4 
010770 
01 0772 
01077b 
011002 
011004 



lOMSQl 

DOOM lb 



)ici; 

105777 
100001 
010120 
Qb2701 
0Cl3b7 
012710 

CJM737 
105777 
100375 
012700 
012Q77 
012777 
004737 
105777 
100375 
022710 
00l3b3 
104401 
000432 



104401 
000426 



Qc,'2737 
001002 
104405 

" 11 




OOUbS 
104401 



01 037b 



012700 020bl4 



170732 
1 "07 H 



020000 
177777 

00137b 
000001 
0OSbl4 
170bbO 

020614 
170654 
000015 
005614 
170630 

•77777 

010556 



SECT 2: 

TYPE 
BR 

::b5S: .ftSCIZ 



IS- 



2$: 



I70b70 



I70b40 



INIT.2: 



IS: 



3S: 



2S: 



010650 

000176 001140 

170172 
020614 

020000 

177777 
00132b 

011012 



: :b5$: 
64S: 



j:b7$: 
71: 



9S: 
8S: 



bS: 



5S: 



4S: 



flOV 
CLR 

nov 

TSTB 

BPL 

MOV 

ADD 

3NE 

MOV 

MOV 

MOV 

JSR 

TSTB 

BPL 

MOV 

MOV 

MOV 

JSR 

TSTB 

BPL 

CflP 

?Se 

BR 

.A5CIZ 

TYTC 
BR 

.ASCIZ 
CMP 

gtIur 

BR 

HALT 

M0V8 

BEO 

MOV 

CLR 

ROR 

BCC 

MOV 

AOO 

BNE 

MOV 

TSTB 

BNE 

TYPE 



.bSS ; ;T^PE flS(-IZ STRING 

4,4S iiGET OVER THE PSCI2 

<15><l2>''0SCIut.ftTiNC SEEK POCKftGE/ 



«0R1V0,R0 
Rl 

R1.9RKD0 

9R^D5 

2S 

Rl . (RO)* 
■|6000.R1 

(RO) 

RKDA.R2 

■l.a^KCS 

PC.SMTME 

smcs 

IS 

•drivo.ro 

(Rb)-r.yiKOA 
• IS.S^CS 
PC.SMTME 

smcs 

2S 

•-l.tRO) 
3S 
.65S 
&4S 



iFINO OUT UHICH DRIVES «RE 

•.PRESENT AND PUT THE 
DRivE t'S IN ft TftBLE STORTING 
fiT 'CRIVO'. BITS 15-13 CONTftlNS 

.THE DRIVE • 



;SET THE TERMINATOR TO THE TABLE 

; ISSUE CONTROL RESET ♦ GO ! 

;0I0 CONTROL READY SET' 

: If NO WAIT! (IF HUNG RUN STATIC) 



ISSUE DRIVE RESET ♦ GO! 



:TYPE ASCIZ STRING 



,. GET OVER THE ASCIZ 
US)<12>/SET SUO to SH7 TO SELECT DRIVES FOR TEST ANO CONT/ 



.67S 



:;TYPE ASCIZ STRING 



<ts><i2>/RESET SW)^0 iS^TO^ESf^ALL AVAIL DRIVES/ 



■|UREG.5UR 
BS 

aSUR.R4 
4S 

•ORIVO.RO 

Kl 

R4 

ss 

Ri. (RO)* 

•2«»30.R1 

6S 

(RO)* 
OSP*"LG 
RUSROY 
.69S 



JSOUEST I 



SUITCH REGISTER IN USE "> 



coSV^i 

UAIT 



NEU CONTENTS FOR SUITCH REG 
f!S OPERATOR TO ENTER NEU 5UR VALUE 
TES 



SUO TO SU7 TO R4 



ALL 
IVE A0DR5 



NONE 

AO&^OF DAlVE 

NEXT SUITCH TO CARRY 

|u}t8m S?T,^ MOVE ADDR TO TABLE 
AOOR OF NE&T DRIVE 

TYPED ONCE» 

IF YES. OONT RETYPE 

;TYP£ ASCIZ STRING 



nftINO£C-U-OZRKl-E NftCYU 
DZRKIF.PU 2S-«fi«-78 OT:20 



GQ4 

30011052 ) 2M-nM-7e 09:23 PAGE 2S 
OSCILLATirC SEEK ROUTINE 



0U07b 
QH07b 
01U02 

oueob 

8iil?l 

0U27S 
0U3OC 



8 



ii; 

0113S<> 

011376 
OUHOO 
011402 
Q1140M 
Q11412 

01142(5 
01 1'*?** 
0114?t» 
011432 
Q1143b 
011440 
0U444 



011570 
OUSTS 
OllbOO 

DUbOM 
OUblO 
01 lbl4 



104401 
0OOH41 

104401 



000424 




022701 
100034 
104401 
000^30 



011S2b 
01152b 
0115X 
011S32 
01153m 

8ili48 
011542 

8iil?l 

011554 
01l5bb 



000717 
OOblOl 

gobioi 

OOblOl 
006101 
0%101 
042701 
032705 
001003 
010137 



loi: 

00071b 



013705 

012700 
010477 
052077 



IbOOj ' 
000001 

001402 

001404 

QQOOSO 
001404 
001402 

020614 
Ib75b2 
lb755b 



SEO 0QS5 



011104 
011214 
011302 



001326 
000100 

000176 



000001 
167752 

001140 

177400 
000312 

01144b 



170000 
001140 

lb7756 



• •711- 



RUSROV: 
TRYPGN: 



IS: 

CONTIN: 



IS: 



J ;65$: 
2S: 



3S: 



SEKSET: 



LOSEEK: 
5S: 



.PSCIZ 

TYPE 
BR 

.ASCIZ 

TYPE 
BR 

.OSCIZ 

TYPE 
BR 

.flSCIZ 

INCB 
BIT 

?S 

ctIur 

BR 

HftLT 
flOV 
TSTB 
BPL 

nov 

MOVB 

SIC 

CMP 

BPL 

TYPE 

BR 

.flSCIZ 

BR 

ROL 

ROL 

ROL 

ROL 

ROL 

BIC 

BIT 

B^C 

MOV 

BR 

MOV 

BR 

MOV 
MOV 
MOV 

MOV 
MOV 
BIS 



<15><12> /TOGGLE THE 
<1S><12>/INT0 THfe' (bIto^ 



FIRST CYLINDER ROORESS' 
Z 



(OUTER LIMIT)/ 



OF THE SWITCH REGISTER «ND THE "LAST 



t2S* ' ' "^^T^Ovf 

< 15> < 12> /CYLINOEft'SSoREsI 



' (INNER L 



Z 

IMIT) 



INTO THE HIGH/ 



»5i' 

<15><12>/ 

OSPFLG 
■100.9RKOS 

rwsrOy 
■sureg.smr 

IS 

CONTIN 
■1. SRKCS 

smcs 

.-4 

SUR.RS 
(RSW.Rl 
■177460. Rl 
■312, Rl 
2S 

,65$ 
64S 

V 15> <12>/INVW.ID 

TRYftGN 

Rl 

Rl 

Rl 

Rl 

Rl 

■160037, Rl 
R1^9»5EEKI 
IS 

3tS^EK0,R4 
9«SEEKI,R5 

■DRIVO.RO 
R4.aRKC)0 
( RO ) t , SRKOA 



: ;TYPE «SCIZ STRING 

IjGET OVER THE RSCIZ 

6^TE (BITB-15), THEN PRESS CONTINUE, 



;"REftO/URITE/SEEK REWY" BIT SET' 
;IF NO WAIT! (IF HUNG RUN STfiTlC) 

SOFTWARE SWITCH REGISTER IN dSE '' 
;BR IF NOT 

GET NEW CONTENTS 
; CONTINUE 

; CONTROL RESET 

GET THE RDORESS Of THE SWITCH REG. TO R5 



GET ft BYTE TO Rl 
CLERR the UNUSED BITS 




GI5TER TRY fiGfilN/ 



GO BACK rOR NEW PARAMETERS 
ROTATING THIS REGISTER 

T»C BYTE FROM THE 
SWITCH REGISTER LINE UP 
WITH THE CYLINDER BITS OF 
THE RKDA RE&ISTER. 
CLEAR THE UNUSCO BITS 
IS THIS THE LOW BYTE' 
BRANCH IF YES 

STORE THE INNER LIMIT OF ThC SEEK 
START SEEKS 

STORE THE OUTER LIMIT OF THE SEEK 
GO BACK AND GET HIGH BYTE. 

GET THE NUMBER OF SEEK CYCLES TO R3 
AOO THE OUTER LIMIT CYLINDER fiOORESS 
AOO THE INNER LIMIT CYLINDER ADDRESS 

INITIALIZE POINTER 

GET INNER LIMIT CYL ADRES 

SET DRIVE ADRtS 



78 



n«cvi 1 

OS: 20 



30«' i052 



5^ 


01 Ibft 


004737 
105777 


□05bl4 
167552 






100375 










177777 


1270 


OllbHO 


022710 
Q0l3bl 
0127OO 




01 Ib'^M 




.272 


01 IbHb 


020bl4 


1273 


01 IbSa 




lb7S20 


127M 


OUbSb 


O3I777 


000100 


127S 
ll7b 


01 IbbM 


001774 




oi:&bb 


02271 J 


177777 


i277 


01 lb72 


0013b' 




1278 








1?^ 
i280 


01 lb7M 
011700 


0 I 0577 


02Qbl4 
lb7472 


1281 


01i70H 


052077 


lb74bb 


1282 


01 1710 


012777 


000011 


1263 


01 J71b 


004737 


00Sbl4 


129S 


011722 


105777 


lb7442 


1295 


0li.72b 


100375 




129b 








1287 


011730 


022710 


17777/ 


1288 


011734 


0013bl 




ipsn 








1?S0 


01173b 


012700 


020b 14 


U'^l 


011742 


012077 


lb7430 


1.5<i5 


on 74b 


032777 


000100 


0U754 


001774 




l."?M 
ll% 


01175b 


022710 


177777 


0ll7b2 
0ll7b4 


OQI347 
009303 




12S7 


0117bb 
011/70 


00130b 




12<» 


000b05 




12<?<» 








1300 








1301 








1J02 








1303 








130S 








1305 








130b 


011772 






1307 


011772 


104401 


012000 


1308 

120^ 


01177b 


000401 










1310 


012002 






1311 


012002 






1312 


012002 


104401 


012010 


1313 


01200b 


000441 




131S 








1315 


012112 






i31b 


018112 


022737 


00017b 


1317 


G12120 


001002 




1318 


012122 


104405 




I3iq 


012124 


000401 




1320 


01212b 


000000 





H04 

i 2M-KW--'8 OS: 23 POGE 2b 
OSCIULOTING SEEK ROUTINE 



3S: 



bS. 
7$: 



8S: 
<9S: 



lOS: 
US: 



TSTB 
BPL 

CMP 
BNE 
MOV 
MOV 
BIT 
BEQ 
CMP 
BNE 

MOV 

MOV 

BIS 

MOV 

JSR 

TSTB 

BPL 

CMP 
BNE 

MOV 
MOV 
BIT 
BEQ 
CMP 



>EC 
BNE 
BR 



b QC1140 



BAD. IN: 



: :b5l: 
SECT. 1; 



::bSi: 



IS: 



TYPE 
BR 

.ASCi: 



TYPE 
BR 

.ASCIZ 

CMP 
BNE 

CTSUR 
BR 

HftlT 



PC^SMTME 
3S 

■-1. (RO) 
5S 

•ORIVO.RO 
(RO)+.iRKDfl 
•RUS.dRKDS 
7S 

1-1, (RO) 
bf 

•ORIVO.RO 
RS.WKftfi 
CTO)-f.3RK0fi 
• U.S^CS 

pc.Smtme 
amies 

9S 

1-1. (RO) 
8t 

•ORIVO.RQ 
(RO)*.SRKDfi 
IRUS.WKDS 
US 

•-1, (RO) 

LDSEEK 
CONTIN 



SEO CC«*fc 



;ft^L DRIVES DONE" 

;AORES THE DRIVE 
;SEEK DONE'' 
NO. M«IT 

;W.L DRIVES DONE'' 
;N0 

:SET OUTER CYL fiDRES 
SET DRIVE ftDRES 

; ISSUE 5E«C«'*(iO! (FOR OUTER LIMIT) 



;«LL DONE' 
.•NO 

;SET DRIVE ADRE5 

:SEEK DONE' 

;OLL DONE' 

;DONE 50 SEEK CYCLES (100 SEEKS) 
IF NO BRANCH (KEEP CYCLING) 
CHECK SUR FOR CHANGE AND CONTINUE 



.SBTTL FORMflTTER-SURFftCE VERIFIER 



.bSS 
&4S 

/"/ 



;;TYPE fiSCIZ STRING 
1 1 GET OVER THE ASCIZ 



.bSS ;:TYPE «SCI2 STRING 

Lui '"get over "HE RSCIZ 

<15><12>/F0RMflTTW-SURFftCE VERIFIER. SET SU REG FOR DRV i"S. PRESS CONT./ 



•SUREG.SUR 
IS 

2S 



SOFTWARE SWITCH REGISTER IN USE ' 
BR IF NOT 

GET SWITCH REGISTER VALUE 
CONTINUE 

WAIT FOR 'CONTINUE' 



104 



f1fiIN0CC-l 
OZWKIF.PI 



-OZPKI-E 



MftCYU 300(1052) as-n«R-7e a-.S! PfWC 2 



FORtlftTTER-SURFftCE -ERIFIER 




105777 

hm 

032777 
0Qi77M 
105777 
175 
12777 
1777 
00177M 
Q0S201 
0013MM 
01 2737 
(512777 
0OH137 
012777 

: 1137 

00S177 
QOM137 
Ofc2737 
022737 
00l3HEi 



000011 
000100 

lb700M 

000015 
000100 



000000 
177777 
012540 
000000 
012540 

Dili?? 
Ibb72& 
012540 
000040 
014540 



lbb770 513: 
511: 

02044b 

510: 



001422 
001424 
KlH2b 
mi430 
5)1432 
00141b 512: 

COmON: 
lb7050 COM: 



157042 



IS: 



lb7020 
lb700b 2S: 

3S: 

lbfa774 
Ibb7b2 4S: 



001410 

ibb7i>Z NEXT: 

lbb750 

lbb73b 



001410 
001410 



CLR 
BIT 
BNE 

IN^ 
CMP 
BCQ 
8R 

nov 

TYPE 
TYPE 

nov 

TYPOC 

sum 

ROL 
ROL 
ROL 
ROL 
ROL 
MOV 
MOV 
MOV 
MOV 
MOV 
MOV 
MOV 
MOV 
MOV 
MOV 
MOV 

?i?B 

BPL 

MOV 

BIT 

BCQ 

T5TB 

BPL 

MOV 

BIT 

8EQ 

INC 

Brc 

MOV 
MOV 
JSR 
MOV 
JSR 
MOV 
JSR 
COM 
JSR 
«DD 
CMP 
BNE 



DRVCNT 
5HFCNT , 3SUP 
510 

SHFCN"^ 

ORVCNT 

•10. DRVCNT 

GOl 

513 

DRVCNT. RO 

.fCRLF 

.EMi 

ftO.-(5P) 

RO 
RO 
RO 
RO 
RO 
RO 

atOSKTHP 
^RRUF 

■c 

[RRUCH 

.RHC 
•-bl4R. ,UC 
■O.CXTR 
•-4. .Rl 
■14560. 9RKC 




IS 

•ll.aRKCS 

•eitb.aRKDs 

2S 

SRKCS 
3S 

■IS.aRKCS 

■eitb,9RKDS 

4S 

RI 

COM 

•O.DA 

•l>7777,»8fi 

Rl.IO 

■O.SBA 

Rl. 10 

•1^5252, S6fl 
Rl.IO 

Ri.IC 
•40.Dft 
•14540, Oft 

NEXT 



SEO oom: 



.CLEftR ORIVE COUNT 

:IS THIS 5U SET' 

: YES FORMAT THIS ORIVE 



.ALL DONE' 



;TYPE 'ORIVE' 
:TYPE ORIVE a 



: CLEAR OUT ERROR COUNTS. 



SET WORD COUNT FOR READ FORMOT. 
SET UP WORD COUNT FOR WRITES. 
CLEAR FXTRA BIT FOR 12 SECTOR PACK. 
SET UP LOOP COUNT FOR THE CLEANER. 
SET UP FOR A SEEK TO 202. 



IS THE CONTROLER READY' 

NO SO WAIT. 

00 THE SEEK. 

IS ThI SEEK DONE' 

NO SO WAIT. 

IS CONTROLER READY' 

NO 

?0 A DRIVE RESET. 
5 DRIVE RESET DONE. 
NO 

COUNT THE CLEANER LOOP. 

MORE TO 00. 

START OUT AT CYL. 0. 

PUT ALL ONE'S IN BUFFER. 

GO DO THE DISK THING. 

PUT ALL ZERO'S IN BUFFER. 

GO DO IT ACIAN. 

PUT A ALT. PATTERN IN BUFFER. 

ONCE ncwc. 

COMPLEMENT THE cAST PATTERN. 
AND AGAIN. 

lNCREf«NT TO THE NEXT CYL. 
ARE WE DONE WITH THIS ONE' 
NO SO 00 THE NEXT CYL. 



J04 



G/RKir PI 1 



F0RHO''TER-SJRP«CE VERI^"IER 



SCO 00MB 



1 rs 

1271 
1390 
138i 
1 38? 
13a3 
i38M 
1385 
I3eb 
; 387 

:38e 

138<? 
1390 
13S1 

1394 
1395 
139(> 
1397 
1398 
1399 
IHCXJ 
IHOl 
IHOS 
1H03 
IHOS 
1405 
140b 
1407 
1406 
1409 

1410 
1411 
1412 
1413 
1414 
1415 
141b 
1417 
1418 
141S 
1420 
1421 
1422 
1423 
1424 
1425 
142b 
1427 
1429 
1429 
1430 
1431 
1432 



31?S0£ 
QlP^jOfc 



012540 
0l2S4fe 
112554 



012b50 



lOM^ai 

TOQMU 



012532 

0i?532 000b07 
C12S34 000137 



0127MM 
012752 
01 2754 



0127b2 
015770 
5 1277b 
013004 
013012 
Oii020 
01X>2b 
013034 
013042 



013777 
013777 
053777 
013777 
777 
777 




013777 
013777 
0S3777 



013777 
013777 
053777 
013777 
012777 
052777 
053777 
052777 
052777 



012510 



0C144C 




lbb530 
000000 



00141b 




04(1000 



001412 
CW1410 
0Q13S2 
00140b 
000000 
004400 
001420 
00000b 
00000 i 



lbbb24 
lbbb22 
lbbbl4 
lbbb04 

IbbSSb 
IbbSSO 
lbb542 



001422 



lbb514 
lbb512 
IbbSOM 
lbb47M 
lUHbS 
lbb454 
lbb44b 

iSSmmo 

lbb432 



lbb41b 
001424 



lbb402 
lbb400 
lbb372 
Ibb3b2 
lbb350 
lbt>342 
lbb334 
lbb32b 
lbb320 



: :b55. 
GDI : 



•'YPF ,fa5S 
BR ci4S 

-ftSCIZ <CR><LF) /P(:KK 



BR 
JtIP 



511 

StSTftRT 



; ; TYPE ftSCIZ STRING 
::C;ET over THE ftSCIZ 



.REETQRT 



jDISK I/O SUBROUTINE. 



iSET 



It: 



UP FOR P 
MOV 
MOV 
BIS 
MOV 
MOV 
BIS 
BIS 
BIS 
BIS 
TSTB 
BPL 
TST 
BMI 
MOV 



WRITE/FORM«T. 
UC , 9RKWC 

at65(TMp,a«KDfl 



;5ET 
.SET 



«g^aRKCS :CLEftR THECON 

•elT10+ilT11.3RKtS :SET FORMAT: 
•BITl.iJRKCS ;SEt UP WRITE I 



EXTR.iRKCS 
•BITft.aRKCS 
9RKCS 

a^cs 

UFERR 
•O.ERRWF 



SET UP FOR P RE«0/FORMAT 



2S: 



MOV 
MOV 
BIS 
MOV 
MOV 
BIS 

lit 

BIS 

BIT 
BTC 

MOV 



RWC.9RKWC 
ag6SKTMP.aRKD« 

^ip^gKCS 
•O.ERRRF 



UP THE WORD COUNT REG. 
UP THE DISK RQQRESS. 
THE UNIT NUMBER UP. 
Ur THE BUSS 7»ORES5. 

TROL REG. FOR SET 
TilNHIBT INC. BITS. 

ruH. 

_T " " 
•;gO DO TH£ yr* I TE FORMAT. 
IS URITE FORMAT DONE' 
NO SO WRIT. 
;URS THERE R ERROR'' 
!yES GO SERVICE IT. 
; CLEAR OUT THE ERROR COUNTER. 



SET UP WORD COUNT REG. 



UP. 



•T UP DISK «00<«SS. 
'T the UNIT NUMBER 



ADDRESS. 



CLEA?^THE c8<?^ REG. 

"t the format bit. 

Ab FUN. 
OR lb SECTOR PACK. 
READ FORMAT. 
AO FORMAT DONE'' 
T. 

A ERROR'' 
RVICE IT. 
THE ERROR COUNT. 




SET UP FOR A URITE CHECK. 



MOV 
MOV 
BIS 
MOV 
MOV 
BIS 
BIS 
BIS 
BIS 




:S|T UP UORO COUNT REG. 
SET UP DISK ADDRESS. 
(TMP.iRKDA ;||T UP jj|g'J'^I"^ '^SS^'' 
-^J?! iCLEAj?*THE C0N?8oL^REG. 

^lUBITB.aRKCS iSET INHIBIT INCR.&S70P ON SOFT ERROR BITS. 
EXTR.aRKCS ;5^T 12 OR 16 SECTOR PACK. 

•eirl+BIT2.aRKCS iSET UP URITF CHECK FUN. 
•BITO.aRKCS ;60 DO THE URITE CHECK. 



K04 



lOlNOCC-ll-DZRKl-E 
DZRKlF.Pll 2M-PlftR-78 09:20 



3 PAGt 29 
VERIFIER 



SEO 004<9 



I'* 35 
14% 
1437 
1438 
143S 

1440 

1441 
1442 
1443 
14WM 
1445 
1 ■•4b 
1 S47 

14 

1 ■♦SI 
1 i 

I iS4 

1 

1 -tS7 
1 ■t'^ 
IHSf^ 
! 

J •t.i 
1 tt-c 

I ( 

i i> -i 
i -itj J 

1 Hi- 

1 <t ' 

1 ' 'U 

1 » 

j , . s 
1 * J 

; t 



4Hb 



OIX/SO 
jj30SH 




013100 



0131CJ6 
0131 12 
0131 14 

oi3iao 

013Jc?? 
01 ji30 
01313b 
013140 



013144 

rjijjSQ 

Ol3JbO 
Dl3iW 

niMr-4 

D I 'J. '(«-, 
0l3-^->S 

013«»SH 

in3<~ «) 

Jl Jf .A 
013?'-Q 



n 1 3. 4M 

0 1 3i sf , 
U13^ ) 



U 1 3?t.t> 
013^7^ 
D13C''4 



105777 
100375 
005777 
100S07 
012737 

348281 
000137 



005237 
022737 
0QI01& 

lOMMOl 
nOOHlO 



000000 
000137 
012777 
012777 
032777 
001 77M 
000137 



005237 
022737 
30135& 
□00737 



Q0S237 
105777 
100375 
02273'^ 
OOHOl 



OOlMlb 

OQIHIH 
OOlSlO 



000000 001426 

l&625b 
lb{>250 



000000 
000000 

013b2H 



001422 
000004 



o;3ibb 



001440 
000000 
000015 
000100 

012540 



001424 
000004 



001430 
001432 



001422 



lbbl4b 
lbbl40 
l&bl2b 



001424 



00142b 
lbb07b 

000004 00142b 



; CHECK KCftOER5 REfiO BY THE REftD^FORttPT. 



MORE: 



WOV 

So 

MOV 
CMP 

ere 

BNE 

nov 



RUC.R3 
jBfi.RS 

S:(2)-^ 

RFCERR 
■O.ERRRFC 



PUT NUMBER OF WORDS TO 
CHECK IN REG 3. 

SET REG 3 TO iHE LAST UORD TO BE CHECKED. 
SET fSC 2 TO STARTING W». OF BUFF. 
CHECK ThRt herder IS RIGHT. 
THIS HERDER MAS URONG GO SERVICE IT. 
ARC UE DOME'' 

NO CO CHECK THE NEXT ONE. 
CLERR OUT THE ERROR COUNT. 



LETS CHECK ON THE URITE CHECK UE 5TPRTED. 



IS: TSTB 
BPL 
TST 
BMI 
MOV 
MOV 
RTS 

UCERRR: JMP 



aRKCS 
IS 

aRKCS 

UCERRR 

■O.ERRUCH 

■O.ERRUCS 

Rl 

UCERR 



I ERRORS FOR URITE FORMAT. 



flFERR: 



SYSER: 



i :bSS: 



RETRY: 
IS: 



INC 
CMP 
BNE 

TYPE 
BR 

.OSCIZ 

MOV 
MOV 
BIT 
8EQ 
JMP 



ERRUF 

•4.ERRWF 

REtRY 

,b5S 
64S 

<15><12> /SYSTEM 



STMT 
aO.SRKCS 

ji|itb.aRKOS 

10 



THE CONTROLER IS STILL BUSY. 

WPS THERE A ERROR' 

YES GO SERVICE IT. 

CLEAR OUT THE 

ERROR COUNTERS. 

RETURN TO THE MAIN LINE. 



;AOD ONE TO THE ERROR COUNT. 

;HAS IT HPPPEW 4 TIMES ON THIS CYL. 

;N0. 



.12 STRING 
R T>€ ASCIZ 



LET THE TECH. BREATH. 
KSTART THE TEST. 



CLEAR OUT TH| 

NO SO UAIT. 
TRY AGAIN. 



ONTROL REG. 
SET. 



•ERRORS FOR REAO/FORHAT. 
^FERR: 



INC 
CMP 
BNE 
BR 



ERRRF 
•H.ERRRF 
REtRY 
SYSER 



iAOOONE TO ERROR COUNT. 
HAS IT HAPPEND 4 TIMES ON THIS CYL' 
NO DO IT AGAIN. 
YES SO TELL HIM SO. 



i READ/FORMAT ERRORS FOUND BY SOFTUARC CHECKS. 



ftFCERR: 
IS: 



INC 
»TB 



BEQ 



ERRRFC 

Sraccs 

IS 

■4. ERRRFC 
FA t LEO 



;AOD ONE TO ERROR COUNT. 
iwAIT FOR THE URITE CHECK. 

;IS IT 4' 

I PUT OUT FAILED MESSAGE. 



fifiTNO€C-ll-OZ«Kl-E MftCfil 

000037 

013332 



17701 IWXX 




L04 

3C«(10M) 2H-«flH-78 OS: 23 PftGC 30 
FORnOTTER-SURFOCE VERIFIER 

IbbObZ fOlLtD: BIC 



SEO 0050 



FAIL: 



::b5S: 



)13bl2 
)13(>14 

013&22 




027114 



0S112S 
d 005015 

000137 001440 



IS: 

CYL: 
SEC: 



020040 
027106 

000 SUR: 
STOP 



ill 



•37.aRK0A 
64f 

<1S><12>/P«CK 



.PUT WHICH SECTORS HEftOER 
;FftILED IN RKOR FOR THE MESSAGE, 
! ;II?E«?*§CI|j_ STRIIiC_ 




MESSAGE 



Fflt£.S^fi?(IM StSu^/ 

i^^'*8.T-!* CYL, SECTOR. SURF ftCE 



RKOR 



.ASCIZ 
.EVEN 

hplt 

jmp strrt 

isHIFT SUBROUTINES. 

iHF3: ASR Rl 

SHF2: RSR Rl 

SHfl: RSR Rl 

h5v R1,R2 

RTS R3 



<15><12>/CYL. 

/^RF. / 
/O /<15><12> 



;TYPE OUT THE GEN|RATED MESSRGE 
•BYPASS THE INLirC MESSAGE 



:LET OPER 00 HIS THING. 
•RESTART THE TEST. 



HERE FOR A SHIFT OF 3. 
HERE FOR A SHIFT OF 2. 
HERE FOR A SHIFT OF 1. 
PUT RESULTES IN THE WORKING REG. 



•V>IN0€C-11-DZRKI E 
OZRKIF.PU 2M-Mfifi- 



78 



MQ4 

r^rU 30A(10S2) 2S-f1A«-78 OT:23 P«G£ 31 
09:20 FORMATTER-SURFACE VERIFIER 




013700 
013702 



032777 040000 IbSCSb 

ogigio 

SS^oJm 001H3<> 

§^io^ 001M30 

JiH02 

8881^7 Si^bo 



000000 
000030 



ftCERR: |IT 

l» 

BEQ 
JMP 

UCHERR: INC 
JMP 

SYSERR: J«P 

I BUFFERS. 

^UFF : . WORD 
RBUFF: .BLKU 



•h?eSwcs 
frIl 

10 

ERRUCH 
•H.pRWCH 

sySerr 

RETRY 
SYSER 



0 

30 



UftS n Q HARD ERROR. 
YE§ iO PROSSES IT. 

-— - FRROR COUNT 

H Of Ttcn» 
AILED MESSAGE. 
SO TRY AGAIN, 
A50 I TO THt HARD ERROR COUN"^. 
HAS THERE KEN H OF THEM* 
YES PUT OUT SYSTEM ERROR HESSOGE. 
NO 50 TRY AGAIN. 



TL3 V*U rm/33C9 

hSS IheSe ken 
yes put out fa] 



.SBTTL RK05 CONTROL PANE- TEST 



0137b(> 

8ip 

013772 
01377b 

0140S0 
OIHOSO 
01^^ 

OlMObO 

§14Q6S 
14^ 
14C 
014074 
014100 
0141Q? 
01410M 
01410b 
014110 
0141 1? 
Q14i 14 

0141PM 

0141t 



104401 
000401 



104401 
000424 



104407 

onboo 

104403 



lb2700 

110037 
000300 
OOblOO 
OOblOO 
XblOO 
OOblOO 
OOblOO 

0T0037 

104401 
000414 



013770 



014000 



OOOObO 
000010 
001314 



001352 
01412b 



BAO.ON: 



&4S: 

SECT.O: 



: :bSS: 
&4S: 



TYPE 
BR 

.ASCIZ 



TYPE 

?ASCIZ 

ROCHR 
NOV 

m 

SUB 
BHI 



CN^ 

Ele 



b7S: 



novB 

SUAB 

ROL 

ROL 

ROL 

ROL 

ROL 

MOV 

TYPE 

BR 

.ASCIZ 



.bSS 
&4S 



;;TYPE ASCIZ STRING 
I -GET OVER THE ASCIZ 



bSf ; J TYPE ASCIZ STRING 

<li><12>/RK05 COAt^SI ^A^L^VIsTf^^lSlCH DRIVE'/ 

(SP).RO 



■bO.RO 
BAO.ON 
•10, RO 
BAO ON 
RO.StDRIVE 
RO 




.hi J : TYPE ASCIZ STRING 

4bS ::GET OVER THE ASCIZ 

<15><12> /MOUNT pACK ON DRIVE •/ 



riftlMOCC-ll-OZRKI-E rWCtll 
DZRKIF.Pll 24-Mflfi-7B 09:20 



N04 

RKOS CONTROL PftfCL TEST 



5E0 00S2 



iE>02 
1603 
IbOS 

lb07 

il8l 

1610 
1611 
1612 
1613 
1614 
1615 
1616 
1617 
1616 

1631 

1{»3S 
1636 
1637 



1640 
1641 
1642 
1643 
1644 
164S 
1646 
1647 
1646 
1649 
1650 
1651 
1652 
1653 
1654 
1655 
IbSb 



014162 
014164 
14165 

m 



0142S2 

014322 
014322 
01432b 

014402 
014402 
0144P4 

814410 
14414 

014476 
01447b 

oi4SlO 




14 
014b20 
014b22 
014b2b 

13! 



014716 
01471b 
014722 

014754 
014754 
0147b0 



11811 

.15024 
01S030 



01510b 
015106 
015112 



104403 
001 



104401 
000423 



104401 
000H2S 



000000 
004737 



000000 
0Q4737 
104401 
00042b 

88^ 

013777 
012777 



l8s7?7 IbSli 



100375 
004737 

1Q4401 
000431 



104401 
000414 



104401 
000420 



000000 
104401 
00042b 



104401 
000420 



014174 
014254 
014330 



01b2b0 
01441b 



81b470 
14512 



01b2b0 
001352 
000017 
4 

lb4SS0 



01b470 
014b34 

014724 

0147b2 

015032 
015114 



lb4574 
Ib45b0 



66s : 



::711: 



;:73S: 



• • 775 • 



IS: 



PRTTWO: 



::b7$: 



66s ! 



>dlS: 



TYPOS 

.BYTE 

.BYTE 

TYPE 

BR 

.05CIZ 

TYPE 
BR 

•ftSCIZ 

TYPE 
BR 

.flSCIZ 

HRLT 
JSR 
TYPE 
BR 

.ASCIZ 

HALT 
JSR 
TYPE 
BR 

.RSCIZ 

HALT 

JSR 

MOV 

MOV 

JSR 

TST8 

BPL 

JSR 

TYPE 
BR 

.ASCIZ 

TYPE 
BR 

.ASCIZ 

TYPE 
BR 

.ASCIZ 

HALT 
TYPE 
BR 

.ASCIZ 

TYPE 
BR 



1 
0 



GO TYPE— OCTAL ASCII 
TYPE 1 OIGIT(S) 

GET OVER THE ASCl2 



<15><12>/PLACE oftlvE' IN'Ri>«"; should" SEE THE RUN, 

71S ;:TYPE ASCIZ STRING 

>0% liQEJ OVER THE ASCIZ 

<15><12> /POWER, A^D ON CYLINDER LAMPS LIGHT./ 

.73$ 

<15><12>/MAKE 



; ;TYPE ASCIZ STRING 
DRi^'^WTPENA^Lp^iisS CONTINUE/ 



GO URITE O'S. RO O'S, CHECK 

;TYPE ASCIZ String 

iGET OVER THE ASCIZ 



PC.URRDCK 

4* 

<15><12><15><12>>flRITE PROTECT THE DRIVE THEN PRESS CONTINUE/ 



PC.URPRO 
.7>| 
^bS 



GO TRY OVERWRITE 
; TYPE ASCI? STRING 



:GET 



< 15> < 12> < 15> < 12> /fcLEAR 



R THE ASClZ 
ITE PROTECT THEN PRESS CONTINUE/ 



PC.WRROCK -.GO WITE O'S. RD O'S, CHECK 

?J^!SSSS"*" if5ScV?o8"iX!T'E PROTECT 

IS IF NO. BRANCH 

PC.URPRO I GO JR^ OVERWRITE OF ZERO'S 

^bSS ;;TYPE ASCIZ STRING 

64! IgET over the ASCIZ 

<1S><12><15><12>/6aUTI0N! TRY TO OPEN THE DOOR, DO NOT FORCE:/ 



,b7S 

£>bs 

<1S><12>/000R 



<1S>< 

^71S 

<ll>< 

.73s 
^2S 



;;TYPE ASCIZ STRING 
IJgET OVER THE ASCIZ 
5H66lO not OPEN!/ 

; ;TYPE ASCIZ STRING 
I -GET OVER THE ASCIZ 
12> /PRESS C6^IT1NUE WHEN FINISHED/ 

;:TYPE ASCIZ STRING 
IgET over the ASCIZ 
12><15><12>>^UT DRIVE IN LOAD, WAIT FOR LOAD LIGHT/ 

:;TYPE ASCIZ STRING 
11 GET OVER THE ASCIZ 



i 



BOB 



1«IM0CC-U 



tn 8! 

Mi 01 



30ft(lOS2) 2M-HfiR-78 OS 
RkOS COWTROL 




& 

faSl 
fa% 
b«}3 

b9S 

b<« 
b9S 

700 

7ua 

703 
70H 
■'OS 



•'IS 



OlSblO 
GlSblO 
OlSblO 
OlSblH 

01S7S2 
015742 
01S7'+fc 

01bO2M 
0lb02b 
01b032 



□32777 140CX 
001431 

104401 015534 
00042b 



104401 01561b 
000422 



104401 015670 
000425 



104401 015750 
000426 



oooooc 

104401 016034 
000422 



164212 
164176 



164154 



164010 



163724 



163644 



72«: 



IS: 



i:75f: 



77S: 



163746 3S. 



4f : 



eis: 



X: 



: :65S: 



::67f: 



XX: 



TYPE 
BR 

.OSCIZ 



TYPE 
BR 

.ftSCIZ 

TYPE 
BR 

.PSCIZ 

TYPE 
BR 

.ASCIZ 

HALT 
TYPE 
BR 



3 PAGE 33 
L TEST 



SlQSKTnP.aRKOA 
SR^CS 

■100200. 9RKEP 



ADDRESS 



SET UP D] ^ 
ISSUE ft 6^IV| RESET 
*^'»-L_TIHC_f6R RKU-C 
COHTROt KROY SET' 



JTRING 



>Hi' ilGCT"OVH^?Hf ftSCTz 

<1S><12>/0RE«8IT1§ or RKCR DID NOT SET IF «N RKU-C 



.77% 
>6{ 

<15><12>/0R B 



ITO> DID NOT SET IF RN RKU-D/ 
RROR Oh E 

z Jtring 

THE RSCI2 



•140000, 9RKCS * ^J^Jf^cH'^F^^i'^ ^ 

?7S1 ::TYPE PSCU 

Hi ilGET OVER THE RSCIZ 

<1S><12> /ERROR d16 not SET/ 

ISSUE R_ CONTROL RESET 

SET 




<1S><12>/C0MTR0L 



•140000. 9RKCS 

X 



WRIST TIJ1E 
CONTROL FCAOY 
IF NO. BmrcH 



•ORE' 

IP YE! 
;TYPE 



<1S><12> /CONTROL 



fe4l' ;-gET 
<1S><12><1S><12>/0PEN 




H 

Z STRING 
THE ftSCIZ 
NOT CLEAR 'ORE*/ 

CLEAR 
H 

yTRING 
ASCIZ 
CLEAR 'ERROR' , RKCS/ 



ASCIZ 

DOOR. PUT DRIVE IN RUN/ 



<15><12> /CAUTION 



; ;TYPE ASCIZ STRING 

GET OVER THE ASCIZ 
! IF RUN LIGHT ON ERI 



ERROR! DEPRESS/ 



01 



9S 



;;TYPE ASCIZ STRING 
■GET OVER TH6_RSCIZ 



1S><12>/L0AD IMlhfeOIATELY, CONTINUE WHEN FINISHED' 



,65S 
£.4S 



J {TYPE ASCIZ STRING 
I; GET OVER THE ASCIZ 



-D2RKI 
2S 




30ft(l0«) 2M-f1flB-78 09:23 P<WE 
RK05 CONTROL PPMEL TEST 



COB 



175b 

17SS 
17fa0 

\7h\ 

I ^he 
1 'bj 
J "'fan 
1 'faS 

l-bS 



OlbHSb 

Qib - 

01b' 
OlbHbM 
OibHbb 
OlbMTO 
0lb47b 
OlbSOO 
OlfaSOM 

0lb5M8 
01b542 
OlbSSO 
0 . hSSb 



00 

1367 
000207 
032777 
001021 
iO^HOl 
OOOSlb 



012737 
013777 
0127-:'- 



01335b 



000040 
OlbSOb 



177777 
001352 
00l3b2 



3M 



lb310M 
1U070 



lb303b 
l{>302b 



lb300M 
lb277M 
Ib27b4 



lb2bbb 



0013b2 
<b2b20 
lb2blQ 



b^i: 



:jb7S: 



URROCK: 
5S: 

IS: 

2S: 
3S: 

: :b5S: 
&4S: 

4S: 

URPRO: 



: ;b5S: 
IS: 



TYPE 
BR 

.RSCIZ 

TYPE 
BR 

.PSCIZ 

TYPE 
BR 

.PSCIZ 

JMP 

CLR 

nov 
nov 

BPL 

rtov 

NOV 
MOV 

•3^ 

T5TB 
BPL 

nov 

HOV 
MOV 
MOV 
JSR 
gTB 

MOV 
BR 

.PSCIZ 
BR 

;mp 



RTS 
BIT 
BNE 
TYPE 
BR 

.PSCIZ 

MOV 
MOV 
MOV 



^71 

Tll><12>/PUT DRI 
<15><12>/RUN, . 

<is><ia>/oorc! 



ULD NOT. 



;:TYP£ P|CI^ STRING 
ORIVE^iHii 

, iAIERCLOCKS HPVE been CHECKED/ 

;;TYPC PSCIZ STRING 
•ICET OVER THE PSCIZ 




»TTRH 
ilOSKTHP.aRKDP 




atDSKTHP^aRKDP 




(RM) + 

41' 

<1S><12> /WRITE 

MgrocK 

M1PNSCL I RH 
3i 

PC 

i|IT5.9RKDS 
,b5S 

<1S><12>/UPS 



MPKE P PATTERN OF ZERC'S 
SET UP DRIVE POORESS 
ISSUE P CONTROL RESET 




TO f&) ore 

TO THE REfO 



fAIlIo/ 



PSCIZ 



GO BACK TRY P( 
M'^tPLL CHECI 
IF NO. BRPNCH 
"~ YES. RETURN 
T 5 6n 

S. BRPNCH 
ASCIZ STI 



PGPIN 
CKS 



J 121 



1 GET OVER THE PSCIZ 
«8IT6 OF RKDS NOT SET/ 



STRING 



•177777. atPPTTRN :C0 LOPO PLL 
9tOSKTM^.SRKDP ;Ak REGISTERS 
•PPTTRN.ifiKBP ;T0 WRITE 



•WINCtC-l i-D^l E NftCril 30e'lOS2 2s-nfiR-7B OT:23 P«GC 35 

DZRKIf.Pll 2S-H«R-78 OT:20 B«OS CONTROL P«NCL TEST 



D05 



SEa 00S5 




178m 

1 79b 

1 ^97 

i-^ee 

i7«K 

! 

i 7S7 
!7ge 
i79S 
1800 
1801 

180M 

iSOb 
1807 
1908 
1809 
leiQ 
ISl 1 
1812 
1813 
1814 
1815 
1816 
Ifll"' 

leie 

1919 

l9^o 
leai 

18^£ 
1623 
1924 



Gi(.7gb 

IbTtK 
Ifc7l4 
lb7, 
It.-/ 
Ifc7 
0J8.73S 
01&73& 



01715b 
01715b 
Ijl7ib0 
0171fa4 

017206 
01720b 
017210 
017212 
017213 
01721S 
017220 

01 723b 
01723b 
017240 
017242 
01754b 



-,77 




104H01 
000427 




001431 
104401 
00042b 



U47 
104401 
0CO422 



00S744 
104401 
000410 



010446 
104403 
GGb 
OUl 
104401 
OOOMOb 



01064b 



Ib25b0 
020000 
01bb3C 



OOOOOl 
OOSblH 
ib2444 



01b744 




017112 



ai71bb 



017222 



104404 
104401 017250 
00040b 



lb2S70 



lb254b 



2S: 



: :b7S: 
Hi: 
lb2454 3S: 



4S: 



020U00 lb2432 



Ib2350 ROCHKO: 
lb2320 

3S: 



If: 



::b5S: 

: 



::b9S: 



BR 

.ASCIZ 

flOV 
JSR 
TSTB 



>I1 
BCO 
TYPE 
BR 

.PSCIZ 



TST 

TYPE 

BR 

.ASCIZ 

HOV 

TYPOS 

.BYTE 

.BYTE 

TYPE 

BR 

.ASCIZ 

MOV 
TYPON 
TYPE 
BR 



— cs 



OVER THE ZERO'S 
KILL TIME "or RKli-C 

ULO fitT SET 
IF YES BRftNCH 
;TYPC fiSolZ STRING 



IT13,aRKER 

:;GET OVtR T« PSCIZ 
<lS><ie>/EXPECTE6 UL0«llT13 OF RKER BUT DID NO' SI 



•ilT13,9RKER 

ROCHKO 



<15><12> /CONTROL 
3aOSKTff>^^0A 




DO R CONTROL RESET 
►(ILL nMEFOR RKU-C 
CQNTROLfcROY SET' 

IF noTrrnch 

ULO BIT CLEAR 
IF YES. BRANCH 
;TYPE ^IJufTglN*^ 
ftSET^DID NOT cSaR • 
;S£T UP RK REGISTERS 

TO ENSURE fn WRITE TOOK PLACE 
;KILL TIME 



ULO' OF RKER/ 



! CHECK TO INSURE NO URITE 
jTOOK PLACE 
iUITH URITE LOCK 



iRRpR^COUNI 



.bSS 

<1S><1S> 



/URITE Oi 



; :TYPE ASCIZ STRING 
: :GET OVER THE ASCIZ 
66URREO UITH URITE P 



PROTECT/ 



-(RH) 
,b7S 



<15><12> /BUFFER W>DRs/ 
R4,-(SP) 



;;TYPE ASCIZ STRING 
GET OVER THE ASCIZ 



b 
1 



til* 



EXPCTDs/ 
R5.-(SP) 
.71S 



;;TYPE ASCIZ STRING 
I! GET OVER THE ASCIZ 



;;TYPE ASCIZ STRING 
!;GET OVER THE ASCIZ 



N0eC-ll-D2RfI-E 



1888 

1830 
1831 
1838 
183 J 
i93M 



Ol^STM 
01 787fa 



Ml 277 
0002C7 



09:20 



01C3S6 



30fl 1052; 



Si 



70S: 

2S: 
MS: 



-nOR-76 
CONTROL 



PftGE 
TEST 



E05 

3b 



HOV 

TYPOh 

CMP 

BNE 

RT5 



■MANSEL , RM 
IS 

PC 



SEO OOSb 



; FINISHED «LL CHECKS 
;ir NO. BRANCH 
,RETURf< 



fiAircec-ii 

OZWCIF.PU 



183b 
1837 
1836 
1839 

18M0 
18H1 
18M$ 

.8MM 

i8H5 

I9M7 
16*48 

I8M<) 

I9S1 

i8sa 

i&S3 
18S4 
18SS 
l8Sb 
19S7 
18S8 

l8f>U 
iSbl 



noc^ii 

78 09:20 



I8b4 
18b5 
18bi> 
19b7 

idbe 

1870 
1871 
1872 
1873 
187H 
1875 
187b 
1877 
1878 

'880 
1681 
1882 
1863 
leSM 
1B8S 
IBSb 
1887 
1888 
188S 
IB^O 




01732% 
Dr/330 
01733H 
0173M0 

3173M2 
0173Hfc 
017350 
0173S2 
01/3S6 



0l73b2 
017370 
01-^37^ 
017M02 

017404 
0174Db 
017410 
017414 



01742C 
Ol742t> 

017430 
017M34 
017442 
01744b 



010210 
010277 
105777 
100021 

104401 
01014b 
104402 
104401 
052710 



012777 
004737 
032777 
001774 

005720 
005201 
0b2702 
Ml 344 



0l741fa 1U4H01 



oi; 



■4S0 
■452 



012700 
005001 

011077 
042777 
10r^777 
100044 

105710 
100454 



F05 

30fi 1052 ) 24-fWR-78 09:23 Pft^ 37 
RKOS CONTROL PPMEL TEST 

;THE rOLLOUING REVlSIOH UftS HADE 8Y JI« KftPftOIft 

.S8TTL CONTROL P««L TEST ■ 2 

:THIS IS THE ENTRY POINT INTO CONTROL PANEL TEST •2. QLL 
THE 0«IVES THPT ARE PRESENT «N0 IN 'ROY' CONDITION ARE 
REPORTED (ON LINE). 



000001 
152054 

020514 



152042 
152024 



020450 



020451 
000300 



000015 
005514 
000100 



020000 
001151 

020514 



151742 
017777 
151715 



152050 



152000 
151752 



SECT. 4: 


NOP 




MOV 


31: 


TSTB 




BPL 




MOV 




CLR 




CLR 


IS: 


MOV 




MOV 




TSTB 




BPL 




TYPE 




MOV 




TYPOC 




TYPE 




BIS 




MOV 




JSR 


4t: 


BIT 




BEQ 


2S: 


TST 




INC 




ADD 




BNC 




TYPE 



I1.9RKCS 
3S 

•ORIVO.RC 

Rl 

R2 

R2, (RO) 
R2.9RKDH 
SRI^OS 
2S 

.EMI 

Rl.-(SP) 



;SET UP ADDRESS TABLE 
; ADDRESS THE DRIVE 
;IS IT PRESENT' 
;N0 

;TYPE 'DRIVE' 
;TYPE OUT DRIVE ■ 



,E?12 ;TYPE 'ON LINE' 

fcBIT5*BIT7, (RO) :SET BITS INDICATING THIS 



•IS.SRKCS 

PC . Smthe 

•Rte.SRKDS 
4S 

(RO)* 
Rl 

•|0000»R2 
.fCRLF 



; DRIVE PRESENT 

; ISSUE A DRIVE RESET 
: ALLOW SOME TIME 
;UAIT FOR RMS ROY 



;NXT DRIVE 
;ALL DONE' 



;THIS CODE CHECKS THE CONDITION OF 'DRY' BIT IN RKOS FOR EVERY 
DRIVE. IF 'DRY- IS SET DRIVE IS SAID TO BE 'ON LINE'. OTHERWISE IT 
IS OFFLINE. IF THE 'DRY* BIT HAS CHANGED FROM LAST TlME. THEN 
IF THERE IS NO CHANGE NOTHING IS REPORTED. 



;I"^ IS REPORTED 
BEGCT 



151734 



BEGCT 1: 



MOV 

CLR 

MOV 
BIC 
TSTB 
BPL 

TSTB 
BMI 



•DRIVO.RO 

Rl 

(RO).aRKDft 
1177^7, aRKDA 
9RK0S 
IS 

(RO) 
NXTl 



INITIALIZE POINTERS 



ADDRESS A DRIVE 

MASK OUT NON DR» BITS 

IS THIS DRIVE ON LINE' 

NO 
YES 

MAS IT 'ON LINE' LAST TIME' 
YES. NO MESSAGE TO REPORT 



Mfll'OeC-U-DZRKl-E nftCYU 
DZRKir.PU 8M-HfiR-78 CM: 20 



GOB 

300(1052 ' 2M-n«R-79 0<J:23 PftOE 36 
CONTROL PANEL TEST I 2 



IBS 

lese 

19CX) 
1"W1 

1903 

IIS 

!«Cfe 
1907 
1908 
1909 
1910 
1911 
1912 
1913 
191S 
1915 
191b 
1917 
1918 
;919 
19?0 

1912 
1923 
192M 
192S 

1928 
19^9 
1930 
1931 
1932 
1933 
193H 
193S 
193b 
1937 
1938 
1939 
19M0 
19H1 
19M2 
19M3 
19H4 
19M5 
.9Mfa 



lOHHOi 
0101% 

If 




017542 
017S42 
017S50 

0l7SbO 
0i7Sb2 
OlTSbM 
Q17S70 
01 7572 
017S74 
0l7b00 



012777 
105777 

10S710 
100010 
lOMMOl 
01014b 
104402 
104401 
042710 



020450 
0J7512 



000017 
lblbl4 



020450 



020473 
000200 



lbl&&2 



Iblb20 



2S: 
3S: 



IS: 



TYPE 

MOV 

TYPOC 

BEO 

TYPE 

BR 

.RSCIZ 



MOV 
TSTB 

'PL 
(R 



TST9 

BPL 

TYPE 

MOV 

TYPOC 

TYPE 

BIC 



:LINE, REPORT MESSAGE 
YES. OK 

;TYre RSCIZ STRING 
.GET OVER THE ftSCIZ 
<lS><12>/ER0R.N0t URT ENABLED/ 

iURITE PROT THE DISK 



ftl,-(SP) 

k^.aRKOS 
2S 



•17.SRKCS 

3S 

NXTl 

(RO) 
NXTl 
.EMI 

ftl.-(SP) 
.EM3 

fcBIT7, (RO) 



:UAS THIS DRIVE OFF LINE L«S^ 
;TIME'' BRNCH IF YES 
; IF NOT.^ REPORT THE CHANGE 
;TYPE DAIVE * 

;TYPE 'OFF LINE' 

: CLEAR BIT TO INDICATE THIS 

;ORlVE 'OFF LINE* 



THIS CODE CHECKS 'UPS' BIT FOR EVERY DRIVE THAT IS IN 'DRY' 
CONDITION (ON LINE). IT REPORTS ANY CHANGE IN THE CONDITION OF 
THE 'HPS' BIT. IF THERE WAS NO CHAMGE FROM LAST TIME NOTHING 
AT THE TIf« OF ENTRY RO POINTS TO DRIVE FLAG. 



IS REPORTED. 



Ol7bOM 


105777 


lbl554 


NXTl: 


TSTB 


SRKDS 


017bl0 


100033 






BPL 


NXT2 


017bl2 
017b20 


032777 
001014 


000040 lb 1544 




BIT 
BNE 


IUPS.9RK0S 
IS 


017b22 
017b2b 


032710 
001424 


000004 




BIT 
BEG 


•BIT2, (RO) 
NXT2 


Q17bXI 
Ol7b34 
017b3b 
Q17b40 
5l7b44 
0l7bb0 


104401 
01014b 
104402 
042710 
104401 
000413 


020450 

000004 
020S21 




TYPE 

MOV 

TYPOC 

BIC 

TYPE 

BR 


.EMI 

ftl.-(SP) 

•BIT2, (RO) 
.EMS 


0l7b52 
0l7bSb 


032710 
001010 


000004 


IS: 


BIT 
BNE 


•BIT2, (RO) 
NXT2 


0l7bb0 
017bb4 
017bb6 
017b70 
017b74 


104401 

nioi4b 

104402 
104401 
052710 


020450 

02050b 
000004 




TYPE 

MOV 

TYPOC 

TYPE 

SIS 


.EMI 

Ai.-(SP) 
.EM4 

•B1T2. tRCt 



IS THIS DRIVE PRESENT' 
RKDA CONTAINS THE DRV « 
NO, SKIP CHECKING 

UPS BIT SET' 



M^i BIT CLEAR 



WAS IT CLR LAST TIME ALSO'' 
YES. NOTHING TO REPORT. 
WPS CHANGED FROM ' SET- 
TO 'CLR'. REPORT IT 
DRI<^ i 



TYPE 



INDICATE THAT 'WPS* 
TYPE 'WPS CLEAR' 



IS CLE«R 



WPS BIT IS SET 
WAS IT SET LAST TIME ALSO' 
YES, NOTHING TO REPORT. 
WPS CHANGED. FROM 'CLR' TO 
•SET^, REPOAt THIS CHANGE 
TYPE 'DRIVE' 
, TYPE DRIVE • 

;TYPE 'WPS SET' 

•SET FLAG SIT INDICP'ING UPS SET 



017700 
01770M 

01771M 
0177?0 
01772b 



1773H 
1-^40 



8 

017742 032 
0177SO 001 



032710 
001403 

000137 
052777 
012777 

100375 



017752 
017756 

Q177b0 
017764 
017766 
017770 
017774 



777 
1414 



032710 
mi67 

104401 
010146 
104402 
104401 
052710 



02LlObr 000556 



020002 
020006 

o^cx3lO 

020014 
020016 
020020 
020024 



032710 
001410 

104401 
010146 
104402 
104401 
042710 



000100 
161452 
020352 
0000*^0 
000011 
161430 



NftlNOCC Il-DZRKI-E MftCYU 
DZRKir.PU 24-nafl-7B OS: 20 



1948 
194 «9 

1952 
1953 

iH; 

1956 

1959 
1960 

iti 

1963 
1964 
1165 

\^ 

1968 
1969 
1970 
1971 
1972 
1973 
1974 
1975 
197b 
1977 
1979 
1979 
1960 
1981 
1982 
1983 
1964 
1S8S 
198b 
1987 
1988 
1989 
1990 
1991 
1992 
1993 
1994 
1995 
1996 
1997 
1998 
1999 
2000 
2001 
2002 



30«aOS2) 24-riflR-7B 09:23 PWE. 

COMTROL PflrCL TEST ■ 2 



HQS 

39 



000001 
020450 



020560 
000001 



161450 
161434 



010000 161414 

000001 

C^0450 



020537 
000001 



« SEEK FUNCTION ON « DRIVE ANO CMECkS IF 
(IF THE PQUER UAS CUT OFF 
Y THOSE QRIVES ORE 
PRESENT fir BEGINNING (WHEN 
THIS TEST MPS ENTtREb). SEEK IS DONE TO CYLINDER 1 
fiT THE TIME OF ENTRY RO POINTS TO THE DRIVE FLAG. 




RFORfIS 
T S 
VE) 



SET ftS fi RESULT. ( 
). NOTE Th6T 0HL\ 
utK FOUND TO Ie f 



HXT2: 

4S: 
3S: 

II: 



2S: 



BIT 

BEQ 

TSTB 

BNI 

JMP 

BIS 

no^ 
Ieo 

BIT 
BNE 

TYPE 

MOV 

TYPOC 

TYPE 

BIS 

BR 

BIT 
BEQ 

TYPE 

NOV 

TYPOC 

TYPE 

BIC 



■6IT6, (RO) 
4S 

gxos 

ONI DRV 

•40.9RKDA 

•11.3RKCS 

9RKCS 
IS 

•OPL.BRKDS 
2S 

•BITO. fRO) 
CLRDPll 

.EMI 

ftl,-(SP) 

ilBITO. (RO) 

CLRDPL 

•BITO. (RO) 
UAT5K 

.EMI 

ftl,-(SP) 
,EM7 

fcBITO, (RO) 



,UAS THIS DRIVE PRESENT «T BEGNG 
NO 

IS IT PRESENT NOW 
YES 

IF NOT SKIP THIS CHECK 

RKDA ALREADY HAS THE DRV ■ 
SET CYL 1 ADDRESS 
SEEK, GO 

UHIT FOR CONTROL RDY' 

SC-C THING fcWONG IF CNTAL RDY 

DOES NOT COME BACK 

OPL BIT SET' 

NO 

YES, DPL SET 

WAS 'DPL' SET LAST TIME ALSO' 
YES, NOTHING TO REPORT. 
DPL CHANCED. COT SET THIS 
TIME, REPORt IT 



TYPE 'POWER LO' 

SET FLAG BIT INDICATING THAT 

DPL SET THIS TIME 

•OPL' BIT IS CLEAR 

WAS 'DPL' CLEAR LAST TIME ALSO' 

YES. NOTHING TO REPORT 

REP6RT THAT 'DPL' BIT CHANGED. 

FROM SET TO CLEAR 



TYPE 'POUER UP' 

SET FLAG BIT INDICATING THAT DPL 
IS CLEAR THIS TIME 



(D< 



ONE ABOV. 
WORST. CA« 



) TO FINISH. WAITING 
E). IF R/W/S RDY 
5UMED THAT A 'SIN' 
~ SO THAT 



.THIS CODE WAITS FOR THE SEEK 

TIME ISAPPROX. Sg MS (FOfi THE . _ 

DOES NOT SET MIli^lN 50 MS. THEN IT IS A 
|s^POSSieLE AND THE PR0(3RAri WAIT 

TIME 

SIN DIDN'T OCCUR 
IF R/W/S ROY ^ETg WITHIN 50 MS THE PROGRAM PROCEEDS 



'OSSIBLE AND THE PROGRAM WAITS FOR 1450 MS MORE. S 
•IIn^CAN lET. IF 'SIN' DOES NOT SET WITHIN T^«IS 
: AN ERROR IS SPORTED: 



020030 012705 164220 



CHECK 
UAT5K: 



THE NEXl 
MOV 



IIV£. 
•-6000. .R5 



TO 



SEO 0059 



:SET COUNT TO WAIT FOR 



105 

i«lrCl£C-n-02RKI-E nOCYIl 30«(IC5aJ 2**-f1flfi-78 0«J:23 PO-iE hO 

::.ZRKIF Pli 2**-ri«R-7B CW:20 CONTROL PONEL TEST ■ 2 



SCO OObC 



aoos 
?ooe 

200S 
2010 
2011 
2012 

?o:3 

20 IH 
2015 
201b 

r-'Cl7 

•Uc 1 

ni<>s 



>iS 
J*- 

'<( )T 

' ' tf> 
1<J 

..^OML 
r'OSl 

^OHc^ 

w*) 
r;gHb 

20He 

20Mq 

c'OSC 
c'OSl 
.^052 

oas3 

20'5S 
?0S5 
20S& 
2057 
2058 



0200 

02QOS2 

0200MH 



0200b0 
020052 
?005fc 
>4 




)70 
372 
0^O07M 
O2007t 
OPOlOO 



020102 
020102 

oaoiofc 

f^O 1H2 
020 1H2 

oai^i«4'-( 

a T J 

liPQ I /O 
OcCl/c' 

o*-'n 1 7b 



020200 
02020H 
0?020b 
020212 
0202 lb 
C2022C 
020222 

02022b 
0e0232 
02O2M0 
02024*^ 
0202Mb 
020252 

0202b0 
02'J2b4 



032777 
001042 
0QS2OS 
561372 



00500S 
"12705 
"777 
10H5 
"30S 
1372 
00S70M 
001002 
00S20W 
0007bb 



104401 
000M15 



0101Mb 
10MM02 

00050; 

032710 
00147b 
0M271Q 
lOMMOl 
OlOiMb 
104402 
104401 
OOOMbS 



032710 
001010 
0S2710 
104401 
01014b 
10MM02 
lOMMOl 

017705 
012777 
105777 
100375 
010577 
012777 

105777 
100375 



000100 lbl322 If: 



177777 
001000 



020113 



oooons 

000002 
020M50 



020b01 



000C02 

000002 
020M50 



020573 

IbllMM 
000001 
IbUSu 

lbll2M 
000015 

IbllOM 



lbl300 SS: 



Mi: 



;:b55: 



3S: 



BIT 
BNE 
INC 
BNE 



CLR 
NOV 
BIT 
BNE 
OEC 
BNE 
TST 
BNE 
INC 
BR 



TYPE 
BR 

.ftSCIZ 

NOV 

TYPOC 

BR 

Ieq 

BIC 

TYPE 

MOV 

TYPOC 

TYPE 

BR 



■RUS.SRkDS 

31 

R5 

IS 



RM 

•177777, R5 

•SIN.ORKDS 

SINSt 

RS 

2S 

RM 

MS 

RM 

2S 



YES 
*MIT 



ROY SET- 



50 NS OVER. R/U/S ROY 
DIDN'T SET. WRIT FOR 
SIN TO SET. 

SET UP COUNT 
SIN SET' 
YES 
WRIT 



,b5S 

<iS><i2>/SIN didn't OCCUR, ORVE 



;1500 MS ELftPSED. BU" SIN 
'.DIDN'T SET. ERR6R! 

;;TYPE RSCIZ STRING 
GET OVER THE OSCIZ 



R1,-(SP) 

ONIDRV 
•BITi. (RO) 
ONIORV 
IBITI. (RO) 
.EHl 

Ai.-(SP) 
.EM9 

6niorv 



;TYPE DRIVE • 



;D1D R/U/S RDY SET L«ST TIME' 
;YES 

CLR FLAG INDICATING THAT SEEK IS OK 
: REPORT THAT SEEK IS OK 



ir SIN SET, DO DRIVE RESET AND CLEAR IT 



SINST: 



lbll30 



IblUO 



MS: 
IS: 



2S: 



BIT 

BNE 

BIS 

TYPE 

MOV 

TYPOC 

TYPE 

MOV 

MOV 

TSTB 

BPL 

MOV 

MOV 

TSTB 
BPL 



•|IT1.(R0) 

•BITI, (RO) 
.EMI 

ftl,-(SP) 
.EMB 

9RK0A.R5 
•l.aR^CS 

IS 

RS.aRKDA 
•l^.SRKCS 

SRKC3 
2S 



DID 'SIN' SET LAST TIME ALSO' 

YES, NOTHING TO REPORT 

SET FLAG INDICATING THAT 

'SIN' SET. AND REPORT THE CHANCE 

;TYPE 'SIN' 

;SAVE RKDA 

;00 CONTROL RESET 

•WAIT FOR CONTROL RDY 

;D0 DRIVE RESET. RKDA 
: ALREADY HAS THE DRVE • 
;UAIT FOR CNTRL RDY 



JOB 



'%*ltMA.C-l. GZRk: E nflCfil 300' 1052) 2«-M«fl-78 0'3:23 PH'iE Ml 

DZRKIF.PII ?s 1fifi-78 0«J:iO CONTROL PftNEL TEST a 2 



aobi 

?0b2 
80(>3 

20b5 
?0*>8 

aot.9 

?070 
2071 
2072 
2073 
20 7M 
2075 
2076 
2077 
2078 
207«9 

2oec 

2081 
2U82 
2083 
2084 

2oes 

2087 
2088 

.■•090 

JOS J 
<'09S 

MOD 
.MOl 
r' • 02 
r 1 U3 
. iOH 

L J OS 

! Life 

J ; OP 
uMoq 

10 
21 1 1 
2112 
2113 
2114 



02C27Q 
02027b 
5^300 

o^030^ 

02030M 
020310 

02033H 

020J3M 



02033b 
0203M4 
020350 



0203S2 
0203SJb 
02034.2 
0203f.4 
020372 

020MOO 
020M0M 

020M0b 
020H12 
□20420 

U20M22 
02rN2M 
020S2b 
020M32 

020S3M 



020MHM 
0204Mb 



032777 
M1025 
00520S 
001372 

104401 
000411 



00040b 



012777 
10S777 
100375 



011077 
105777 
100017 
042777 
012777 

105-'77 
1003^5 

004737 
032777 
001774 

C05720 
00S201 
020127 
001402 
000137 
000137 



000000 
OOCOOO 



000100 IblObb 31 



020312 



000001 
lbl020 



IblOSO 
lblC02 

017777 
000011 

Ifa07b4 



005&I4 
000100 



000010 

017430 
017422 



IblOSM 



1&1004 
lb0770 



lb0744 



::b5«: 
44S: 



BIT iRUS.aRKDS 

BNE DNIORV 

INC RS 

BNE 3S 

TYPE ,b5f 

BR o4S 

.flSCIZ <15><i2>/RUS ROY 



BR OrUORV 



;R/W. S 5ET-> 
;^E3 

H«IT FOR R/W/S ROY 

REPORT ERROR R/W/S RCy Cl"? 

;TyPE flSCIZ STRING 

jGET OVER THE flSCIZ 

l'<OT SET/ 



;IF DPL SET CEflR THE ERROR BY DOING CONTROL RESET. 



CLROPL 
IS: 



• I.^KCS 
SR^CS 



; CONTROL RESET 
;WAIT FOR CNTRi. ROY 



ORIVI £«_IN PK5fll_HflS^pN CHECKED 



nov 

TSTB 

FOR^SSy.^hS; bPl.'i'SlN. T* pointers flAE INCREMENTED 
AND THE S«HE CHEC<:S UILL 3E DOfC ON THE NEXT 
DRIVE ( T«N T* NEXT ONE t SO ON. NOTE THAT 
THIS SyB-mOGMH KEEPS ON CYCLING THROUGH 
ALL T« DRIVES/ RTTHE TI"! 0^ E^TRY (HERE) 
RO POINTS TO THE FLRC FOR TKI DRIVE THfiT MRS 
JUST CHECKED. BEFORE GOING ON TO THE NEXT 
DRIVE THE HE^DTfire BROUGHT BACK TO CYLINDER 
0 (FOR THE NEXT CYCLE). 



ON 1 DRV: 


MOV 




TSTB 




BPL 




BIC 




MOV 


IS: 


TSTB 




BPL 




JSR 


4S: 


BIT 




BEQ 


3S: 


TST 




INC 




CMP 




BEO 




JMP 


2S: 


JMP 



(R0J.9RKDR 

9RKDS 

3% 

•17777. aRKDR 

•ii.smcs 
aRKCs 

IS 

PC.SHTME 

■PHS.SRKDS 

4$ 

(R0)-» 
Rl 

Rl.lin 

ss 

BEGCTI 
BEGCT 



GET DRIVE • 
DRIVE PRESENT' 
NO 

CYL RORES 3 0 
GO. SEEK 

;URIT FOR CNTRL RDY 



INCREMENT POINTERS TO 
NEXT DRIVE 

^L DONE, THIS CYCLE' 

GO DO NEXT DRIVE 
RESTRRT THE CYCLE OVER 
PGR IN 



020450 005015 05 1 1 04 



SHFCNT: . . 
DRVCNT : . WORE 
iMESSflGES 
0531 II EMI: .flSCIZ 



0 
0 

<I5><12>/DRIVE / 



K05 



DZRKlf.PU 2M-mR-78 09:26 CONTROL PfiNEL TES 



?1U 

rii8 
eu9 

^l^o 

lilS 

^l^5 

fin 

2130 
2131 
2132 
2i33 
213M 
2135 
2136 
2137 
2138 
213« 
2140 
PlMl 
2142 
2143 
2144 
2145 
214b 
2147 
2148 
2149 
2150 
2151 
2152 
2153 
2154 
2155 
21'-.t> 
21b7 
215fl 

aiss 

?lfcO 



020461 





051440 
045517 



020614 
000000 
000000 
000000 
000000 
000000 
000000 
000000 
000000 



3 PfiCX. 42 

T • 2 

.ftSCIZ / ON LINE/ 

.ASCI2 / OFF LINE/ 

.ftSCIZ / URT PROT/ 

.A5CI2 / URT ENABLED' 

.RSCIZ / DRIVE POWER LO/ 

•flSClZ / POWER UP/ 

.flSCIZ / SIN/ 

.RSCI2 / SEEK OK/ 



FLftCS FOR CONTROL PRNEL TEST •2 

•DRY* BIT IS SET FOR THE DRIVE (ON LINE) 




ORIVO 
ORIVl 
DRIV2 
0RIV3 
DRIV4 
DRIV5 
DRIV6 
DRIV7 



WHEN •DRY' IS CLEAR (WHEN DRIVE IS IN LORD/QFF LINE. 

*'!r DRIVE IS FOUND TQ BC PRESENT (DRY) AT 
UHLII« ilT 7 THIS BIT DOES NOT GET SET OR 
MIVC CONDITigre CHANGE. IT JUST INDICATES 
IS ayRILMjLE FOR CHECKING. 
- • BIYTeTS SET. I£: 6RIVE POWER OFF 
CN DRIVf POHER is ON. 
^K INCOHPLETE ^SIN' OCCURS. 

MH^N Seek is 

~ ] WRrpROT IS SET FROH CONSOLE. 
WHEN DRIVE IS WRITE ENABLED. 

; DRIVE FLOGS 



nPirccc-ii-DZRKi-E Mftcvu 

OZWIF.Pll 78 OS: 20 




0008MO 
00CM26 



LOS 

300(1052) 2M-««R-78 OS: 23 PftGE 43 
HEAD ALlCrtCNT ROUTIfC 

.S8TTL HEM) ALIGNMENT ROUTINE 



SEC 0063 



04273? 
005237 



020b4M 

02072b 
021020 



021532 
021526 



OOOO&O 
0000&7 



020614 
OOOlOb 



020000 
021526 






«0 ftLICNNENT. UPON ENTRY 
R SHOULD REPLY UITH THE 
DRIVE IS ftN RK-OSr 
LECTING SyR«"ACE 0 
1. SET SUl »l TO SELECT 



oA?l' 



or T 
coSti 

UPPER* OR L6iER'«M~0R' CYlYnOER 



CYLINDER 130 

■ " " THE ODD DRIVE 



SU1«0T 

V?"lt"^mS Wt'^omit^O TO SELECT THE 



ITCH FROM SU2 TO SW15 UP AND 



SECT. 5: 



::67S: 



HORLCN: 



NOP 

TYPE 

BR 

.RSCIZ 

TYPE 
BR 

.ASCIZ 

TYPE 
BR 

.ASCIZ 

TYPE 

CLR 

ROLIN 

NOV 

NOVB 

iff 

CMP 

BLT 

CLC 

ROR 

ROR 

ROR 

ROR 

MOV 

MOVB 

BEQ 

CMP 



,65S 
&4S 

<1S><12>/SET sue 



:;TYPE ASCIZ STRING 
;^G^T OVER THE ASCIZ 



■OR SURF 



0, SU0=1 FOR SUR 1. 
TRING 



<1S><12>/5ET SW1=6 FOR CYLINDER 105, SW1=1 FOR CYLINDER fcH^ 
<1S><12>/PUT ANY FROM 2-15 HI TO SELECT NEW DRVE/ 



0206 14 



TSte 
BNE 
SIC 
INC 



.EMIO 
^FLAG 

(SP)*.R1 
^R1)+^R0 

HOAdGN 
•67. RO 
HDALGN 

RO 

RO 
RO 
RO 

RQ.DRIvO 
(Ri)+,RO 
5S 

RO.i'F 

HOOLGN 

(Rl } 

HDALGN 

•BIT13,DRIV0 

FFLAG 



ASK FOR DRIVE • 

FLAG FOR RK-05F 

GET OPR INPUT 

ftOOR OF COMMAND STRING 

FIRST CHAR 

0 TO 7 

TOO SMALL 

MUST BE 7 OP LESS 

TOO BIG 



ADDRESS OF DRIVE 

NEXT INPUT CHAR 

ALL DONE IF C.R. 

IS IT F' 

NO. SO ERROR 

NES:T CHAR MUST BE C.R. 

ELSE. ERROR 

USE ^VEN DRIVE IF RK-05F 
SHOW F TYPE DRIVE 



DZRKIF.Pll 2M-f1«»-78 CM: 20 MEftO ftLlCNMEN^ 




M05 

-.23 PftOE 44 
ROUTINE 



IbS 



3SUR.SUT 



TCH 
SUTCH 



IT13.ro 
9S 

•S.»H0,R1 

•1|0.»40.R1 

■Sm.«40.R1 

SUTCH 

lOi 

•Ml.ftHO.Rl 

aRKCS 

Hi 

•p9t7i,R2 
],SIITCA 

•f?>S,RO 
Rl.RO 

aRKCS 
3S 



SCO 00(>H 



^T^ffiRg^SWlTCH REGISTER IN USE' 

REQUEST rCU COMTENTS FOR SWITCH REG 

WAIT FOR OPCRPTOR TO ENTER NCU SUR VM.UE 
HOLD SUITCHES 
IT $Ul ONLY 

SO LOU CYLINDER 




^^|V|^IF^HIGM TRRCK OF F 



jUflIT FOR DRIVE Rl 
•RESET CONTROLLER 



VE REPDY 



MPIT FOR RCRDY 

F DRIVE' 

NO 

TRPCK I^OF HIGH 

YE^ IE TEST TRACK B OF DRIVE HIGH 
TRACK 130. IF SUl SET 

CYLINDER bM IF NOT F 
SWl SET' 

YES.30 CYLINDER faM 
CYlInKR 105 
ANY EmOR' 
NO. CONTINUE 
REkT 

UAIT FOR READY 
SUITCH REG TO RS 
SUl ONLY 

ANY CHANGE SINCE LAST'' 

sSteg ''''' 

URITE_.PRQTE^yHg^PRIVE 



UAIT FOR C0N1 



CLEAR TRACK ADDR 
SUO SET' 



?DY 



NO TEST TRACK 0 
TEST TRACK 1 
CLEAR CYLINDER ADDR 
PUT CYLINDER ADDR IN ADDR 

INTO THIS BUFFER 
READ. GO 

:DONE' 
:N0 



N05 

f1flIN0eC-U-DZRKI-E MACYli »)«(i052) ZH-HM-7B OS:M ,P«GE 45 

OZRKIF.Pil 2S-l«W-78 tW:2D HEAD flLICNfCNT ROUTINE 



SEO 00i>5 



2275 
ZZ7b 

li;? 

2280 
2261 
2282 
2283 
220S 
228S 

l?et) 

2287 
2288 
228S 
22<W 
22S1 
22S2 
22S3 
22SM 
2215 
22Sb 
22S7 
2298 
^2<?S 

^ JO J 

JO*-' 

< JOb 
' JO ' 
> JUf( 

<?JOM 
^3l<:' 

P3l ^ 
P3l<; 

^JlH 
'>3n 

121 
J2.' 
«2 » 
.'J2M 

^3^'> 

^■32b 
232r 
P32B 



081512 033777 17777H 

OaiSZC 001713 

C21522 000137 02107b 

888888 

02153? OOSOIS 051104 

021540 037505 000 



021544 
0215Mb 
CJ21S52 
021SSb 

121570 
021S7M 
021576, 

021W34 
!>t'ibl2 
02lbl4 
02lb20 

o^iba? 
oaibei, 

021b30 
021b>i 
02 1 b40 
021b42 
021b50 
32lb5H 
02 Ib"^ 

n21bb0 
021bb4 

o?ib7n 



□2 1544 

CMDSOOO 
005037 

i^Ob 
005237 
Ob^700 
0013bb 
U007b2 
01374b 
032777 
00140b 
ID44Q1 
10H402 
104M01 

ooorsb 

104401 
01374b 
104402 
012777 
105777 
10037S 
QOS005 

013701 
013702 
013703 



020b 14 
1S7S20 
157b02 

020b l*^ 
020000 



020b 14 
000040 

0222: i 

022244 

020450 
020&14 

000001 
157514 



00137b 
001372 
001374 



157420 



SWTCH: 
053111 EMIO: 



BIT •17777H,9SUR 
BED lOS 
JNP HDALGN 



.ftSCIZ <1S><12>/DRIVE'/ 



SBTTL DISK POWER FAILURE TEST 



;EXIT OUT' 

;N0. CONTINUE ON "^HIS DRIVE 
:YE&, GET NEW DRIVE 



✓ PriLrf-R FOTi I«IF fntiRINC DISK WRITE) TFST 

V« IfSr->VfiMftTION WRITTEN ON THE DISK IS 
DISK SENSES fi LOSS OF POWER WHILE DOING ft WRITE 
UPON ENTRY THE PROOWM" FINOS OUT THE 
tf€»lC«TES IT (DRIVE XX) AND PROCEEDS TO TEST. 
IWlTTEN WITH UNIOJE PflTTERMS. THEN THE 
Ir^R 10 (DECJMPL) AND fi MESSAgE (DROP 



HERDS 



,p.-&,v KS TfC 



SHOULD 



**^TER RECEIVING THIS MESSflGE THE USE" SHO 
FROrt THE DRIVE. ON SENSING R LOSTOF POWER. THE 



157552 



157520 





.EVEN 


StU fa: 


clr 




CLR 


BS: 


MOV 




TSTB 




BNI 


IDS: 


INC 




ADO 




BHE 




BR 


12S: 


MOV 




BIT 




BEQ 
TYPE 




TYPOC 




TYPE 




BR 


9S: 


TYPE 




MOV 




TYPOC 




MOV 




TSTB 




BPL 




CLR 




MOV 




MOV 




MOV 



0 PUT BftCK 
ITE-CHECK IS F_ . 
FERHS ON THE DISK (CYLINDERS Q-S RND 11-15) ORE STILL 
R WRITE CHECK ERROR IS REPORTED. 



KDA 



RO 

DRIVO 

9811:8s' 
12s 
DRIVO 
V20000.RO 

es 

SECT.b 
DRIVO. -(SP) 
M40,9AkD5 

ss 

.EMU 
,EM12 

los 



IVG,-(SP) 



■l.aRKCS 

8RKCS 

.-4 

RS 

RKDR.Rl 
RKWC,R2 
RKBR,R3 



; INITIALIZE DRIVE « 

IT PRESE^ 
NOT SKIP 



.lT_PRE5eNT» 



;GET DRIVE « 



; CONTROL RESET 

-.INITIALIZE PATTERN TO BE WRITTEN 
•0 ON CYL 0, 1 ON CYL 1, ETC 



MPCYl 1 



BOB 

DISK POWER FfilLURE TEST 




IbHOOO 
0OM0O3 



1572b4 
000001 

1572t>0 

022232 
022232 
IbHOOO 
004007 



IS 



022232 



1573f>b 2S: 



::b5I: 



3S- 



5S: 



::b71: 



bS: 



(*0v 
nov 

MOV 

nov 

NOV 

TSTB 

BPL 

INC 

BME. 

flOV 
BIS 
MOV 
MOV 
")0V 
MOV 
MOV 
BIT 

?YPE 
BR 

.A5CIZ 



BR 

MOV 
MOV 
MOV 
MOV 
TSTB 

BPL 



TYPE 
BR 

.ftSCIZ 

TSTB 

BPL 

MOV 

TSTB 

BPL 

MOV 

CLR 

MOV 

MOV 

MOV 

MOV 

TSTB 

BPL 



9RM 

-2 

RS 

R|.t20 

RO.RS 
•SdW.RS 
•iaJUFR 
RS.iRi 

•H003.3RH 

t«?US.9RKDS 

2S 

^bSS 



,9RI 

»euFR.a^3 

•H003.SRH 

aRM 

.-2 

SRM 

3S 



,b7S 

4bs 



I FILL THE PATTER IN DPTft BUFFER 

;UR!tE 1 5yL (2SbX12X2 UOROS i 
;URlTr CO. IBfi SET 

.uAiT ^OR Control reroy 

:DONE 

;WRITTEN RLL 15 CYLINDERS' 
;1F NOT, CO BAK 

DRIVE • 

CYL 10 

PflTERN TO BE WRITTEN 

A0RE5 THE DISK 

hORO COUNTr 1 CYLINDER 

IBA 

WAIT ^-OR tHE HERDS TO SETTLE 

ON CYL 10 

.TYPE fiSCIZ STRING 

;G£T OVER THE ASCIZ 



ACRES THE DISK 

WORD COUNTx 1 CYLINDER 

BUS ACRES 

WRITE. CO. IBA 

WAIT f-QR tONTROL READY 

WAIT FOR DRIVE POWER TO CO DOWN. 
OTHERWISE, KEEP ON WRITING ON CYL 

IF DRIVE POWER LOSS WAS SENSED, 
RSK TO PUT POWER ON. 
;TYPE ASCIZ STRING 
;GET OVER THE ASCIZ 



<l5><i2>/P0WER of*'/ 

:WAIT FOR DRIVE READY 
: CONTROL RESET, CLEAR ERROR 



aRKDS 
.-2 

RQ.aRKOA 



!)R3 



■ 

iS 

9RM 

.-2 



; INITIALIZE PATTERN 



: WRITE CHECK, GO, IBA 



MfiirCCC-U-DZWI-E 



WiCYU 30A(10S2) 
2S-f1flR-78 0S:?0 




020105 
042105 



2H-nPR-7B 09:23 PACE 
DISK POUCR raiLURC TEST 



COB 

47 



SCO oobr 



71: 



BUFR: 
EMU: 

Eni2: 



TST 

on 

.ASCIZ 

MOV 

TYPOC 

INC 

CMP 

BNE 

JHP 

.UORO 
.ASCIZ 



^15/ <12> /ERROR, (>fi PUR-UpV 
aRl,-(SP) 

Rl,a20 
b% 

IDS 

0 

/DRIVE / 



Ar<Y ERROR'' 

??YPE ftSCIZ STRING 
GET OVER THE ftSClZ 
RKOAs' 



.ASCIZ /IS URITE PROTECTED 



no 

2411 

2414 
2415 
24lfa 
2417 
2418 
2419 
2420 
2421 
2422 
2423 
2424 
2425 



70 ip5?3? 001157 



IOC 
171 




000002 



16 000002 
000011 



.S8TTL TYPE ROUTINE 

;•••••««•••••••«««««««««••«««•«••«••««««••*•••••»*«««««««*«***«* 



•NOTI 
«N0TE3 
• 

•CALL: 
*1) USING A 
» TYPE 
«0R 
• TYPE 
« MESAOR 
ft 



USED AS THE FILLER CHARACTER. 
R^HARACTERS RESuIRED. 
SriLLC CONTAINS THE CHARACTER TO FILL AFTER. 



SNULL CONTAINS THE CHAMCTER TO BE 
&XLLS CONTAINS THE NUMKR OF FILLEI 



STYPE: 

IS: 
2S: 



60S: 
3S: 

41: 



SI" 

HALT 

BR 

MOV 

MOV 

MOVB 



2334 122716 000200 



mSv 

ADO 

cBb 

BEO 
CMPB 



TRAP INSTRUCTION 
.MESAOR 



ITPFLC 
It 

S,-(SP) 
SilSPi.RQ 
(RO)*,-CSP) 
HI 

(SP)* 

(SP)*.RO 

■2,(S^) 

•HT, (SP) 
81 

•CRLF.dPJ 



;;MESAOR IS FIRST ADDRESS OF AN ASCIZ STRING 



THE^gA TERMINAL' 
HALT HERE IF NO TERMINAL 

We 




5 m 

T THE TERMIN 



NG 

0 ONTO STACK 
ERMINATOR 



jJF T^INATOR POP IT OFF THE STACK 



ADJUST RETURN PC 
""TURN 

ANCH IF <HT> 

BRANCH IF NOT <CRLF> 



1fiIN0CC-U-0ZHKl-£ fKICYn 
OZWir.Pil 2H-ffM-78 09:20 



30A(1052) 2«<-nAR-78 09:23 
TYPC ROUTINE 



DOb 

p(vi£. Me 




Q0Q002 
000015 



000012 



TST 
TYPE 



(SP)* 



5S: 



71: 



HARCNT 



JSR 
CMPS 

arc 

tiov 

JSR 
TCB 



PC.STYPEC 
2f 

SNULL,-(SP) 

PC.STYPEC 
PgHARCNT 



022S0M 



lS6H7b 
000002 



000002 If: 



; HORIZONTAL TAB PROCESSOR 



riovB 

JSR 
BITB 
BNE 

B?' 

ITYPEC: T^B 

novB 

CMP8 
BEQ 

SCHRRCNT: .UORD 
STYPEX: RTS 



.(SP) 
PC.iTYPEC 
•7,SCHARCNT 
9S 

<|P,. 

2(SP).aSTPB 
■JR.Z'SP) 

|CHARCNT 

STY^X 

(PC)* 

io 



SEQ OObS 



:;POP iCRxLf^ EOUlv 
:;TYPE ft CR ANO LF 

;G0 TYPE THIS CHARACTER 
;IS IT TI« FOR FILLER CHARS ' 
; IF NO CO OCT NEXT CHAR. 
GET • OF FILLER CHARS. NEEDED 
;ANO THE NULL CHAR. 

OF STAC*^ 

;G0 TYPE 0 NULL 
DO NOT COUNT AS A COUNT 
5 LOOP 



REPLACE TAB WITH SPACE 
TYPE A SPACE 
BRANCH IF NOT AT 
TAB STOP 

POP SPACE OFF STACK 

GET NEXT CHARACTER 

WAIT UNTIL PRINTER IS READY 

LOAD CHAR TO BE TYPED INTO DATA REG. 
IS CHARACTER A CARRIAGE RETURN'* 
BRANCH IF NO 

YES—CLEAR CHARACTER COUNT 
EXIT 

IS CHARACTER A LINE FEED'' 
.BRANCH IF YES 
; COUNT THE CHARACTER 

CHARACTER COUNT STORAGE 



SBTTL BINARY TO OCTAL (ASCII) AND TYPE 

TO CHANGE A 16-BIT BINARY NUTSER TO A &-OIGIT 



»OC?AL^!fs{lI) NUMBCft AND TYPE IT. 

•STYPOS ENTER HERE TO SETUP SUPPRESS ZEROS AND NUN8ER OF DIGITS TO TYPE 

»CALL: 

;NU«BER TO BE TYPED 
;CALL FOR TYPEOUT 

Nsl TO b FOR NUMBER OF DIGITS TO TYPE 
;nsl OR 0 

;:1=TYPE LEADING ZEROS 
:;0=SUPPRESS LEADING ZEROS 

tSTYPON ENTER HERE TO TYPE OUT WITH THE SAME PARAMETERS AS THE LAST 

♦STYPOS OR STYPOC 
«CALi.: 

« MOV NUM,-(SP) :; NUMBER TO BE TYPED 



« 


MOV 


NUM, 


« 


TYPOS 




.BYTE 


N 


« 


• BYTE 


M 


« 






« 






« 







EOb 



lOirCtC-U OZRKI E rwcni 30O'iC352' 2H-nftR-78 09:23 49 

OZRKIF Pll BH-n(*R-7e 09:20 BINfiRY TO OCTftL i ASCII. AND '"^E 



SEO 0069 



0227 lb 
02272M 
022786 
022730 
022731 



U0337 
10M401 

SOS 

I7H4 

l2bCM 
12603 

0126 1E> 
OOOOOd 
000 
000 



022733 
000012 




tSTYPOC— ENTER HERE ^OR TYPEOUT Of" ft lb BIT NUMBER 
*CftLL • 

» * MOV NUn.-(SP) ;;NUM8ER TO BE TYPED 

» TYPOC ;,CALL FOR TYPEOUT 



022733 



022733 
02273S 
022732 



022734 
177770 



OOOObO 
000040 
022710 
022730 
022732 



000002 000004 



STfPOS: MOV 
NOVB 
M0V8 
ROD 
BR 

S TYPOC: MOVB 
MOVS 

ITYPON: MOVB 
MOV 
MOV 
MOV 
MOVB 
MEG 
ROD 
MOVB 
MOVB 
MOV 
CLR 

IS: ROL 
BR 

2S: ROL 
ROL 
ROL 
MOV 

35: ROL 
DECB 
8PL 
SIC 
8NE 
TST 
BEO 

4S: INC 
BIS 

Si: BIS 

novB 

TYPE 

7S: DECB 
8GT 
8LT 
INC 
9R 

bS: MOV 
MOV 
MOV 
MOV 
MOV 
RTI 

8$: .BYTE 
.BYTE 



acSPi .-(5P) 

1(SP).S0FILL 

(SP)*.S0«00£*1 




•S.fOCNl 

R3,-(5P) 
R4,-(SP) 

S5^I00E+1,R4 
R4 

•b,R4 

R4.S0M00E 

tiy'ILL,P4 

12(5P).RS 

R3 

RS 

3S 

RS 

RS 

RS 

RS.R3 
R3 

sonooE 

7S 

•177770, R3 

4J 

R4 

SS 

R4 

•'0,R3 
• ' .R3 
P3.6S 

iOCNT 

b% 
RH 
2f 

fSP)*.R5 
( SP ) ♦ , R4 
(SP)+.R3 
2(SF),4(SP) 
<SP)*, CSP) 

0 
0 



PICKUP THE MODE 
LOW ZERO FILL SWITCH 
NUMBER or DiCITS TO TYPE 
ROJUST RETURN RODRESS 



SET THE 
SET FOR 
SET THE 
SRVE R3 
SAVE R4 
SAVE RS 
GET THE 



IRO FILL SWnCH 

— Digits 



[X(b) 0] 
rERATION COUNT 



NUMBER OF DIGITS TO TYPE 



SUBTRACT IT FOR MAX. ALLOUED 

SAVE IT FOR USE 

GET THE ZERO FILL SWITCH 

PICKUP THE INPUT NL»18ER 

CLEAft THE OUTPUT WORD 

ROTATE MSB INTO "C" 

GO DO MSB 

FORM THIS DIGIT 



GET LSB OF THIS DIGIT 

TYPE THIS DIGIT' 

BR IF NO 

GET RID OF JUNK 

TEST FOR 0 
_ ^^jg 

IF 

T SUPPRESS ANYMORE O'S 

PTHIS DIGIT ASCII 
ASCII IF NOT ALREADY 
FOR TYPING 
YPE THIS DIGIT 
COUNT BY "i 
BR IF MORE TO DO 

?R 2F DONE 
NSURE LAST DIGIT ISN'T A BLANK 
GO 00 THE LAST DIGIT 
f^STORE RS 
RESTORE R4 
TORE R3 
If 



: STACK FOR RETURNING 
; RETURN 

STORAGE FOR ASCII DIGIT 
TERMINATOR FOR TYPE ROUTINE 



1flIN0CC-H-02RKl-E MfiCVU 
OZRKlF.Pil 2H-nMi-7B (M:20 



2555 

2S57 
2558 
2S5«J 
2560 
2561 
2St>2 
25t>3 

2SbB 
2SI.9 

e«i7o 

2S/1 
2S72 
2573 
2S7M 
?S75 
2S7t, 
2577 
2S78 

^sel 
f^e2 

r'SSb 

^S87 
2SS1 

Hl^ 

2S9M 
2595 
25% 
2SS7 
25"W 
259S 

2bao 

2t»01 
2bO| 
2b03 
?bOM 
2f>0S 
ZbOk 
2b07 
2bOB 



022733 000 
02273M 000000 



02273b gogooo 
o5ci7Ho 000000 

0227S2 000000 
0227MM gooool 

02?7Mfe 



Q227H6 
022752 
0227b0 
0227bb 
02277M 
023002 
02100b 
02j01'i 



»30MH 
|30S2 



005037 
012^37 
013737 
012737 
012737 
005777 
012777 
0)0207 



1 1 774b 
04271b 
02lb27 
OOlOCH 
022737 
OOlSOO 



022737 
OOlOQS 
10H401 
|72b 
♦Si 

iiSlI 

005077 

100375 
11774b 



FOB 

30ft (1052) 2H-M«R-7B 09:23 PftlE 50 

BINARY TO OCTftL (ftSClD AND TYPE 

SOFILL: .BYTE 0 
lOngDC: .UORO 0 
•SBTTL TTY INPUT ROUTINE 



5E0 0070 



; ;2ER0 FILL SWITCH 
;;NUf1BER OF DIGITS TO TYPE 



02273b 
022744 
022740 
02301b 
000200 
15bl40 
000100 



022740 
022742 
OOCObO 
0000b2 

15bl30 



I5bl24 
177b00 
000007 

00017b 001140 



000001 
02H0bb 

000023 
15b04b 
15b040 
15b03M 



02273b 



$f K?^ : . WORD 0 

STKOIN: .WORD 0 

XTKOOUT: .UORO 0 

STKQSRT: .BLKB 1 
STKQCNOs. 
.EVEN 

»TK INITIALIZE ROUTINE 



: NUMBER OF ITEMS IN QUEUE 
: INPUT POINTER 
; OUTPUT POINTER 
TTY KEYBOARD QUEUE 



•THIS ROUTINE UILL INITIALIZE THE TTY KEYBOARD INPUT QUEUE 
♦SETUP THE INTERRUPT VECTOR AND TURN ON THE KEYBOARD INTERRUPT 



»CALL: 
« 



JSR 

RETURN 



iTKINT: CLR 
MOV 
MOV 
MOV 
MOV 
TST 
MOV 
RTS 



PC.STKINT 



STKCNT 

•fTKOSRT.STKOIN 
STKOIN, StKOOUT 

•stksfK'.sitkvec 

•200.9ttKVEC4-2 

aSTK6 

•lOO.aSTKS 

PC 



CLEAR COUNT OF ITEMS IN QUEUE 

MOVE THE STARTING ADDRESS OF THE 

QUEUE INTO THE INPUT & OUTPUT POINTERS 

INITIALIZE THE KEYBOARD VECTOR 

-BR" LEVEL 4 

CLEAR DONE FLAG 

ENABLE TTY KEYBOARD INTERRUPT 

RETURN TO CALLER 



«TK SERVICE ROUTINE 

•THIS ROUTINE UILL SERVICE THE TTY KEYBOARD INTERRUPT 
•BY READING THE CHAfiACT 
«IT IN THE QUEUE. 



;TER FROM THE INPUT BUFFER AND PUTTING 



tTKSRV: M0V6 
BIC 



IS: 
2S: 

3S: 
31S: 



CMP 
BNE 
CMP 
8EQ 



CMP 

BNE 

TYPE 

TST 

BR 

CMP 

BNE 

CLR 

TST 

TSTB 

BPL 

MOVB 



a$TKB.-(SP) 
•tCl7>.(SP) 
(SP),I7 

•luRE 
bS 



G.SUR 



tl, STKCNT 
3S 

, SBELL 
5S 

(SP). 123 

32S 

aSTKS 

(SP)* 

aSTKS 

31S 

a$TKB.-(SP) 



PICKUP THE CHARACTER 

STRIP THE JUNK 

IS IT A CONTROL G' 

BRANCH IF NO 

IS SOFT-SWR SELECTED' 

CO TO SMR :hance 



IS THE QUEUE FULL' 

BRANCH IF NO 

RING THE TTY BELL 

CLEAN CHARACTER OFF OF STACK 

EXIT 

IS IT A CONTROL-S' 
BRANCH IF NO 

DISABLE TTY KEYBOARD INTERRUPTS 
CLEAN CHAR OFF STACK 
UAIT FOR A CHAR 
LOOP UNTIL ITS THERE 
GET THE CHARACTER 



GOb 



f1fiIN0tC-ll-DZRKl-E 



nOCYU 300(10SS) 2M-npR-78 OS: 23 PAOE 51 



OZRKIP.PU 



SblO 

Hi! 

2t>15 
IfelB 

?b3l 

JO/ 

^b'^H 

?t.S7 

ab48 
?t>so 

at>53 

Jbbl 
3bba 

^bb3 
^bbH 




0231HM 
M31S4 
023170 

0? jaob 



2H-nM>78 OS: 20 
000021 

000100 156012 

m$ 

00017S 
OOOOMO 
iJpHO 

022740 022745 
022744 022740 



TTY INPUT ROUTINE 



SEO C371 



023210 
0<?32?M 

023S3b 
023242 



023eMM 
0232S2 
0232S4 
0232Sb 
0232(>2 
0232bb 



m 



04271b 
023727 

000005 



32S: 



4S: 



5S: 



CHP 
BNE 

wr, 

INC 
CMP 
BLT 
CNP 
BGT 
BIC 

novB 

INC 
CHP 
BNE 

NOV 
RTI 



(SP)*.i21 

aiSo.afTxs 

STKCNT 

(SPl,il40 

4S 

(|P).tl75 

•40, (SP) 

(SPW.aSTKQIN 

STKOII^ 

stkqin. ■stkoeno 
Utkosrt.stkoin 



15 IT A CONTROL-Q' 

TTY KEYBOARD INTERRUPTS 



AL CHRR1 



BS'WICH IF 

COUMT THIS CHRRRCTER 
IS IT UPPER CASE' 

NRKE IT UPPER CASE 
RNp PUT IT Ih OyEUE 
UPDATE THE POINTER 
CO OFF THE ENO' 
BRANCH IF NO 
)«SET THE POINTER 
RETURN 



022737 00017b 001140 iCKSMR 



4S0FTUARE SWITCH REGISTER CHANGE ROUTTNE. 

•ROUTINE IS ENTERED FROM THE TRAP HANDLER, AND WILL 




023330 
D2J334 



100101 
1 1 774b 
0y271b 
021b27 
001300 



1?3727 
001b74 
0OS72b 
004737 
005077 
112737 

104401 
104401 
01374b 
1Q44Q2 

mOi 

04b 
00S04b 

lOS'-»7 
10037S 

li""'4b 
042"' lb 



155720 

155714 
177b00 
000007 



CNP 

?S^B 

8PL 

NOVB 

BIC 

CMP 

BNE 



EG.SUR 



15S 



(SP) 
(SP) 



S THE SOFT-SWR SELECTED 
FXIT TF NOT 
IS A CHAR WAITING^ 
IF NOT, EXIT 

(iSkE IT 7-BIT ASCII 



IS IT A I 
If NOT. i 
AND EXtT 



CONTRQL-G' 

PUT IT IH THE TTY QUEUE 



001134 000001 t,%: 



02274b 
155b5b 
000001 

024077 
024104 
00017b 

024115 



155b lb 



lS5bl2 
17"'b0Q 



iCONTROL IS PASSED TO THIS POINT FROM EITHER THE TTY INTERRUPT SERVICE 
♦ROUTINE OR FR5f1 THE SOFTWARE SWITCH REGISTER TRAP CALL. AS ft RESULT OF P 
*CONTROL-G BEING T\'PED, AND THE SOFTWARE SWITCH REGISTER BEING SELECTED. 

a L. ARE WE RUNNING IN AUTO-MODE* 

BJWNCH IF YES 
CLEAR CONTROL-G OFF STACK 



001135 



CNPB 
BEO 
TST 
JSR 
CLR 
NOVB 



TYPE 

SGTSWP: TYPE 
MOV 
TYPCC 
TYPE 

19S: CLR 
CLR 

7S: TSTB 
8PL 

10VB 
BIC 



SAUTOe.tl 
2S 

(SP) + 
PC.tTKINT 
aSTKS 
■l.SINTAG 

.SCNTLG 

.IMSWR 

5WREG,-(SP; 

.SMNEW 

-(SP) 
-(SP) 

aSTK8.-(SF- 
•♦C177. (SP) 




ECHO THE CONTROL -G (tG) 
TYPE CURRENT CONTENTS 
SAVE SWREG FOR TYPEOUT 



GO TYPE—OCTAL ASCIKALL DIGITS' 
PROMPT FOR NEW SWR 
CLEAR COUNTER 
THE NEW SWR 
CHAR THERE' 
IF NOT TRY AGAIN 



; :PICK UP CHAR 

I! CAKE IT 7-BIT ASCII 



««INOtC E IftC'il 3W 1052; 2^-nMt-7Q OS: £3 

D2R»(IF.PU 2M.rKW-7e 09:20 TTr IMPUT ROU'IK 



HOb 



SEO 0072 




2t.?0 

2b 72 
2b73 
2fe7M 

H-^ 

2fc7o 
2fc77 
2fe78 

,7 

11 
2bll2 
2S83 

2fc§M 

2b85 
2bab 
2t>87 
2&8e 
2b85 
2fe90 
2(i9l 

US 

2t.9M 
2bSS 
2b% 
2b47 
2&9e 
2t.9<J 
2700 
2701 
2'02 
2703 
270M 
2705 
2706 
2717 
2706 
270S 
2710 
2711 
2712 
2713 
2'14 
2"'15 
2 'lb 

2718 
2'IS 
2 '20 



00002S 

. . _ _ 024072 
i33S2 0b270b 00000b 
023 3Sb 000757 




023Htt 
ffi?iH72 



OS 



3M7b 
3502 
023S0S 
023510 



nb27 

mm 

0H272b 

»3ib 

»31b 
lib 
ibb 
OSbblb 
000707 
lOHMOl 
000720 



lS553b 

Ilbl 
00113S 000001 

000100 155S1<4 



g22MH0 
^OObO 

OOOOb? 

OOOObO 
000002 



000002 
17777b 

301 IbO 



9S- 
20S. 

lOS: 



US: 
14$: 



ISS: 
IbS: 



ille iSs 

TYPE .SC 



17$: 



IBS: 



.0SA8L 



TYPE 
AOO 
BR 



CMP 

BNE 

TST 

BCQ 

MOV 

000 

TYPE 

CMPB 

B^C 

MOV 

RTI 

JSR 

CMP 

BLT 

CMP 

BGT 

BIC 

TST 

BEO 

PSL 

PSL 

PSL 

INC 

BIS 

BR 

TYPE 

BR 

LSB 



,$CNTLU 
l<3i 

(SP),tl5 
IbS 

H(SP) 
11$ 

2CSP),95VIR 
ilNTRG.tl 

ilio.asTKs 

PC.ITYPEC 

(SA),gb0 

18$ 

(SP).llb7 
IBS 

•bO. CSP)+ 

(SP) 
(SP) 
(SP) 
2(SP) 

-2(SP), (SP) 
7$ 

.$QUES 
^0$ 



:1S IT P CONTROL-U'' 

BRPNCH IF NOT 

YES. ECHO CONTROL-U (tU) 
:IGn6rE previous input 
•LET'S TRY IT PCPIN 

IS IT P <CR>' 
BRANCH IF NO 

YES. IS IT THE FIRST CHRR' 
BRmkH if YES 

IlSr'^p IVSck 

ECHO <CR> pro <LF> 



RE-ENPBLE 
BRRNCHir 



TTY 
NOT 
TTY 



KBO INTERRUPTS' 
KBD INTERRUPTS 



RE-ENPBLE 
RETURN 
ECHO CHRR 
CHAR < Q« 
BRRNCH IF YES 
CHRR > 7' 
BRPrCH IF YES 
STRIP-OfF PSCII 
IS THIS THE FIRST CHPR 
BRPNCH IF YES 
NO, SHIFT PRESENT 
CHRR OVER TO MPKE 
ROOM FOR NEW ONE. 
KEEP COUNT OF CHAR 
SET IN NEU CHPR 
QEl THE NEXT ONE 
TYPE '><CR><LF) 
SIMULATE CONTROL-U 



:»«»»»«»»»«»««««»»»»«»»»«««»«»««»«»»»»»»»»»»»»»•♦»♦»»»»»»»»»»»*♦ 

iTHIS ROUTINE UILL INPUT A SINGLE CHARPCTER FROM THE TTY 
tCPLL: 



RDCHR 
RETIJ9N HERE 



Q23512 OUbHb 

023S14 01 bbbfc OOOOOM 000002 

023S22 OOSOfeb 000004 

02352b 00S04b 

023S30 012-'4b 023S3b 

023534 000002 

02353b 

023S3b 005737 02273b 



SRDCHR: MOV 

MOV 
CLR 
CLR 
MOV 
RTI 

b4$: 

1$: TST 



(SP).-(SP) 
4(SpK2(5P) 
4(SP) 
-(SP) 

3b4$,-(SP) 



STKCNT 



J GET P CHPRPCTER FROM TfC QUEUE 
CHPRPCTER IS ON THE STPCK 
UITH PPRITY BIT STRIPPED OFF 



PUSH D0i4N THE PC AND 
THE PS 

GET READY FOR A CHARACTER 
PUT NEU PS ON STACK 
PUT NEU PC ON STACK 
POP NEU PC AND PS 



: ;WAIT ON fl CHARACTER 



DZRKIF.PU 



-OZRKI-E 



023S'<s 0OS337 




027bO0 CXXXWS 



02^ 



QlD3Mb 
OOSOMb 
012703 
022703 
101 '♦5b 

112613 
122713 
001022 
»S71b 
001007 
112737 
lOHHOl 
)127J 




11 1337 
lO^MCI 
00074fe 
00571E, 
fXJlHOb 
1 12737 
10M401 
00501(> 
122713 
001003 
iQMMOi 
00072b 
122713 
OOiOii 
105013 
10M401 
lOHMOl 
000717 
104S01 
000712 
111337 
104401 
122723 
001305 



30ft(:a52) 2>i-»1AR-7B OS: 23 PftGE 



lOb 

S3 



SEO 0073 



02273b 

i22^42 
022742 



000004 
022745 



022744 022742 



2f : 



DEC 

MOVB 

INC 

CMP 

BNE 

MOV 

RTI 



JTKCNT 

afTK00UT,4(SP) 
STKOOUT 

|Tf(0OUT,«STK0EN0 
■STKOSRT.STKOOUT 



DECREr*£NT THE COUNTER 
GET ONE CHPRACTER 
UPWTE THE POINTED 

D IT CO OFF OF THE ENC 
~F NO 
HE POINTER 



i44 








; • 








SRDLlh: 


MOV 








CLR 


02403fc 




IS: 


MOV 


0240bb 




2S- 


CMP 








BLOS 








ROCHR 








M0V8 


000177 




lOS: 


CMPB 








TST 








BNE 


000134 


024034 




MOVB 


024034 






TYPE 


177777 






MOV 






bS: 


DEC 


a2403b 






CMP 








3L0 


024034 






MOVB 


024034 






TYPE 








BR 








TCT 








BEO 


J00134 


024054 




MOVB 


024034 






TYPE 








CLR 


000025 




?%■ 


CMPB 








BNE 


024072 






TYPE 








BR 


000022 




BS: 


CMPB 








B^€ 










001 Ibi 






TYPE 


02403b 






TYPE 








BR 


OOUbO 




4S: 


TYPE 








BR 


024034 




3S: 


MOVB 


024034 






TYPE 


000015 






CMPB 








BNE 



4 THIS ROUTINE WILL INPUT P STRING FROM THE TTY 
tCALL: 

» ROLIN 
t RETURN HERE 



R3.-(SP) 
-(§P) 

•STTYIN,R3 

•STTYIN430.R3 

4S 

(SP)*, (R3) 

•177, IR3) 

5S 

(SP) 

bS 

••N,9S 

fc-1, (SP) 
R3 

RS.iSTTYIN 
4S 

(R3),9S 

(|p) 
7S 

tSP) 

•25. (R3) 
BS 

.SCNTLU 

is 

•|2, (R3) 

(R3) 
.SCRLF 

Jttyih 

.soues 
is 

il5,(R3)* 
2S 



; INPUT fl STRING FROM THE TTY 

OQQRESS OF FIRST CHARACTER UILL BE ON THE STACK 
•TEfVIINATOR UILL BE fl BYTE OF ALL O'S 

SAVE R3 

cle5r Ti 



GET 



KEY 



HE RUBOUT 
ADDRESS 

So READ ONE CHARACTER FROM THE TTY 
GET CHARACTER 
IS IT A RUBOUT 
B^^ IF NO 

IS THIS THE FIRST RUBOUT' 
BR IF NO 

TYPE A BACK SLASH 



T THE RUBOUT KEY 
KUP BY ONE 
TACK EMPTY' 

iF \is 

TUP TO TYPEOUT THE DELETED CHAR. 

GO reaS another char. 

RUBOUT KEY SET' 
BR IF NO 

TYPE A BACK SLASH 

CLEAR THE RUBOUT KEY 
IS CHARACTER A CTRL U' 

?R IF NO 
YPE A CONTROL "U" 
CO START OVER 
IS CHARACTER A "tR"' 
BRANCH IF NO 
CLEW* THE CHARACTER 
TVPE A "CR" & -LF" 
TYPE THE INPUT STRING 
GO PICKUP ANOTHER CHACTEP 
TYPE A 

CLEAR THE BUFFER AND LOOP 
ECHO THE CHARACTER 



;; CHECK FOR RETURN 
••LOOP IF NOT RETURN 



f1fiIfC£C-ll 
DZRKIF.PU 



8778 
877S 
?780 
8781 
8782 
5783 
278S 
5795 
879fc 
2787 
278B 
2 7955 
87«W 
8791 
87S| 
2733 
279M 
87% 
87% 
87S7 
?7<W 
87«M 
8800 
PSOl 
8808 
8803 
890M 



■DZRKI-E 



78 



8807 
8806 
8809 
8810 
88U 
8818 
3813 
8614 
8815 
861b 
^17 
8818 
8819 
8880 
8881 
8088 
8683 
8e£:M 

8887 
8888 
8889 
8830 
8831 
8838 



4818 
08M81b 

08M28M 
a8'i?8fa 



ICNMOl 
005786 
012^ 

u i 0000 
?7bb 




onb4b 

Olbbbb 
01004b 
01014b 
010246 
104410 
018600 
II 



118046 
001418 
m6301 
(506108 
006301 
006108 

SSo8 
(»i71b 
068601 
000764 
005786 
01 01 66 
010837 
018608 
018601 
018600 
00C008 
000000 



tVtCril 
09:80 

X1162 



300(1058 ^ 84-M<W-7e 09:83 
TTY INPUT ROo'•'I^€ 



POGL 54 



JOb 



SEO 007>< 



OOOOOH 
084036 



000377 
005015 
?507 
*3 

047040 
000040 



000008 
000004 



000004 000008 



1/7770 



000018 
084886 



9S: 

STTYIN: 
SaELL: 
SCNTLU: 
SCNTLG: 
SNSUR: 



TYPE .SLF 
T5T (SP)* 
MOV (SP)*,R3 
nOV (SP),-(SP) 
nOV 4(SPi.2(SP) 
MOV •STTy1n,4(SP) 
RTI 
BYTE 
YTE 
KB 
CIZ 
PSCIZ 
ASCIZ 
ASCIZ 



0 

0 

30 

<207><377><377> 
/tU/< 15> < 12> 
/*0/<15><12> 
<15><i2>/SWR = / 



trPE fl LINE TEED 

CLEAN RUBOUT KEY FROM THE STOCK 

RESTORE RJ 

00 JUST THE STOCK ONO PUT OODRESS OF 
FIRST ASCII CHOROCTER ON IT 

RETLW 

STORAGE FOR ASCII CHOR, TO TYPE 
TERMINATOR 

RESERVE 30 BYTES FOR TTY INPUT 
CODE FOR BELL 
CONTROL "U" 
CONTROL "C" 



THE 



000 
000018 
020182 

053505 »MNEU: .ASCIZ / NEW = / 

.58TTL READ AN OCTAL NUMBER FROM THE TTt 

: •«»»»»»»«««*»*»»«»»»«««»»#*•*•»«»«»««»»«»««««»»«»«»«♦«««»»»««*»♦ 

tTHIS ROUTINE WILL READ AN OCTAL (ASCII) NUMBER FROM THE TTY AND 
I ♦CHANCRE IT TO BINARY. 

J "CALL: ^ ^ NUMBER 



ROOCT 

RETURN HERE 



SRDOCT: 



IS: 



2S: 



3S: 



SHIOCT' 



MOV 

MOV 

MOV 

MOV 

MOV 

ROLIN 

MOV 

Ct.R 

CLR 

MOVB 

BEQ 

ASL 

ROL 

ASL 

ROL 

ASL 

ROL 

BIC 

ADD 

BR 

TS^ 

MOV 

MOV 

MOV 

MOV 

MOV 

RTI 

.UORO 



(SP),-(SP) 

4(SP5.8(SP) 

RO,-(§P) 

Rl.-(SP) 

R2,-(SF) 

(SP)*.RO 

Rl 

R§ 

(ROJ*,-(SP) 

3S 

Rl 

R2 

Rl 

R2 

Rl 

R2 

•tC7, (SP) 

(SP)i,Rl 

2S 

(SP5* 

Rl.i2<5P) 

R2.SHI0CT 

(SP)+.R1 
(5P)*.R0 



LOW ORDER BITS ARE ON TOP OF THE STACK 
IhIGH (}WER BITS ARE IN SHIOCT 

; PROVIDE SPACE FOR THE 

INPUT NUMBER 
;PUSH RO ON STACK 
;PUSH Rl ON STACK 

PUSH R2 ON STACK 
:REAO AN ASCIZ LINE 
\G£J ADDRESS OF 1ST CHARACTER 
; CLEAR DATA WORD 

; PICKUP THIS CHARACTER 
;IF ZERO (£1 OUT 

..•8 

STRIP THE ASCII JUNK 
ADD IN THIb DIGIT 
:LOOP 

CLEAN TERMINATOR FROM STACK 
iSAVE THE RESULT 

;POP STACK INTO R2 

POP STACK INTO Rl 

POP STACK INTO RO 
; RETURN 

HIGH ORDER BITS GO HERE 



DZRKlf PI I 



8935 
2636 
2P37 
?d38 

28M3 
2eH5 

29SB 
29sg 



•OZRKI- 
24 • 



il 
29S2 
8983 
29SH 
89S5 

e857 
29Se 
26S<9 
88l>0 
2661 
28(>2 

28bM 
28bS 
29bb 
29«>7 
29(>8 
29bS 
2670 
2871 
2872 
2873 
?87M 
2875 
287t> 
28^7 
2878 
£■879 
2980 

■?8ei 

>?e82 
2983 

2885 
268(> 
2887 
2888 



•f1fl«-78 




02M252 
02H25H 
08M2t»2 



02M2b4 
02S2b6 
02S270 
05m272 
02S27M 



024300 
02M302 
02H30H 
0?43Dfa 



02M310 
0243ifc 

02S330 
02M332 
02M33H 
02M33b 
024340 
□24344 



010046 
016600 
005740 
liiOOO 
006300 
016000 
000200 



011646 
016666 
000002 



024252 
022270 
022534 
022510 
022650 



024276 023300 



023210 
023512 
023602 
024126 



012737 
012737 
010046 
010146 
010246 
010346 
010446 
010546 
017746 
010637 



MAC*"!! 
09:20 



30ft' i352 



24-f1«P-78 
TRAP DECOOER 



OS: 23 PPOE 



KOb 

55 



SCO 0075 



4thIS routine mill pickup the I.OHER BYTE OF THE 
•ftNO USE IT TO INDEX THROUCH T»« TRflP TftgU FOR 
*0F ThPoCSIREO routine, then using THE ADDRESS 
»G0 TO THAT ROUTINE. 



"TRAP" INSTRUCTION 
THE STARTING ADDRESS 
OBTAINEO IT UILL 



000002 
024264 

000G04 000002 



STRAP: MOV RO.-(SP) 

nOV 2(feP),R0 

TST -(RO) 

nOVB (RO).RO 

ASL RO 

NOV STRPAO(RO}.RO 

RTS RO 



SAVE RO 

GET TRAP ADDRESS 
BACKUP BY g 

GET RIGHT BYTE OF TRAP 
POSITION FOR INDEXING 
INDEX TO TABLE 
GO TO ROUTINE 



;;THIS IS USE TO HANDLE THE "GETPRI" MACRO 



STRAP2: 



MOV 
MOV 
RTI 



(SP),-(SP) 
4(SPi,2(SP) 



jMOVt THE PC DOWN 
MOVE THE PSU OOUN 
RESTORE THE PSU 



.SBTTL TRAP TABLE 



:«THIS TABLE CONTAINS THE STARTING ADDRESSES OF THE ROUTINES CALLED 
>BY THE^RaP" INSTRUCTION. 



iTRPAD: 



ROUTINE 

Thoro" 

STYPE 
STYPOC 
STYPOS 
STYPON 



STRAP2 

5;CALL«TYPE 
;CALL«TYPOC 
CALL«TYPOS 
CALL«TYPON 



fRAP+1 ( lOMMOl ) 
TRAP*|(10HMQ2) 
TRAPOdOMHM) 
TRAP+M( 104404) 



TTY TYPEOUT ROUTINE 

TYPE OCTAL NUMBER (MITH LEADING ZEROS) 
TYPE OCTAL NUmCR (NO LEADING ZEROS) 
TYPE OCTAL NUMKR (AS PER LAST CALL) 



SGTSWR ;;CALL»GTSHR TRAP+5( 104405) GET SOFT-SHR SETTING 



SBTTL 



SCKSUR : i CALL«CKSW TRflPt-6 ( 1 04406 ) 
IROCHR ; CALL«roCHR TRAP*7( 104407) 
SRpLIN CALL«MX.IN TRAP410( 104410) 
ITOOCT jjCALL»»»0CT TRAP^l 1(104411) 
POUER DOM AND UP ROUTINES 



TEST FOR CHANCE IN SOFT-SUR 
TTY TYPEIN CHARACTER ROUTINE 
TTY TYPEIN STRING ROUTINE 
READ AN OCTAL NUMBER FROM TTY 



024450 
000340 



154574 
024454 



000024 
000026 



l^OUER DOUN ROUTINE 



iPURDN: MOV tSlLLUP.StPURVEC 

MOV •d40,atn«vEc-»2 

MOV RO,-l|P) 

MOV Rl,-(SP) 

MOV R|,-(SP) 

MOV R3,-(SP) 

MOV R4,-(SP) 

MOV R5,-(SP) 

MOV 9SAr.-(SP) 

MOV SP.SSAVR6 



iSET FOR FAST UP 
^10:7 

PUSH RO ON STACK 
PUSH Rl ON STACK 
PUSH r| on STACK 
PUSH R3 on stack 
PUSH R4 ON STACK 
PUSH RS ON STACK 
PUSH aSUR ON STACK 
SAVE SP 



LOfe 



lfiI'«£C-U-OZRKl-E mCiil 
DZRKir.PH ZH-naR-7B (M:20 



30A(10S2) 2H-nMt-78 09:23 PWL 5b 
POUER DOUN WO UP ROUTINES 



SEO 007b 



02s3Sb 
02S3bO 



D2MHS<? 



QOOOPC 
00077b 



00077b 

oggooo 

005015 
□00 122 



HRLT 
BR 



.-2 



:;HANG UP 




000024 



024310 
000340 



000024 
00002b 



047520 042527 



[^OUER UP ROUTINE 

iPURUP: nov 

NOV 
CLR 

IS: INC 

BNE 

MOV 

MOV 

MOV 

MOV 

MOV 

MOV 

MOV 

MOV 

MOV 

TYPE 
SPURMG: .UORO 

RTI 

SILLUP: HALT 
BR 
DVRb: 0 

.RSCIZ 



•SiLLUP.atPWRVEC 

SSOVRb 
If 

(SP)*,3SWR 



(SP)*,RS 



_ R4 
(SP)+;R3 
(SP)+,R2 
(SP)+.R1 
(SP)+.RO 

■SPUTON.aiPURVEC 
•340.9tPURVEC-«-2 

SPOUER 



<1S><12> "POWER" 



:5CT FOR FAST OOUN 
iET SP 

i35lT LOP FOR THE TTY 
WAIT FOH THE INC 
OF UORO 

INTO 9SUR 
"NTO RS 
NTO R4 
NTC R3 
INTO R2 
INTO Rl 
INTO RO 

:5£T UP THE POKR DOUN VECTOR 
>RI0:7 

AEPORT the POUbR FAILURE 
; POUER FAIL MESSAGE POINTER 

;THE POUER UP SEQUENCE UAS STARTED 

BEFORE THE POUER OOUN UAS COMPLETE 
:PUT THE SP HERE 




• EVEN 



f«irC€C-ll-DZRKI-E 



MOb 

PAGE 58 



0Z«KIP Pll 



^T5l 2 



2S-f1flR-78 OS: 20 



CROSS RCPERENCE TflSLE 



USER SYneoLS 



SEO 0077 




BITb 
BIT7 
BIT8 - 
BITS 

tlUFF 
BJiFR 

BUS<¥>« 

(HtCK 1 

CHKCNT 

CK5UR 

CLRDPl 

CNTSIM 

con 

COMMON 
^OMTC 

OOMTIN 
lOHTKL 
CR 

CRLF : 

CYCL£ 
OCLf r 



QOQCIO 

C/OOOSO 
(XKIiOO 
000200 
OOOMOO 
QOIOOO 
0Q0014 
013700 
022232 
(50l33€. 
00S450 
001350 
10M40fc 
02033*5 

ooi3aa 

012320 
Q1231M 
00l3ib 

onsoM 

001332 
000015 
000200 
00M1''4 
0042P0 



15bl« 
2332 
7%« 
881 
1014* 

1980 
705* 
1364 

788* 
1232« 

798* 
1381 
3bb 
&72i 



IdbS* 
513t 


1370* 


1372* 


1393 


1427 




1588 












1398 


1415 


1M32 


1971 


1978 


1982 


1431 
1412 
1429 


2031 


2033 


2042 


20HM 




1784 
541 
1000 
1431 


2215 
639 
1002 
1928 


2228 
673 

nil 

193M 


1418 
168S 
1938 


1547 
19M6 




802 
754 
1356 
594 


805 
17b0 
1361 
1113 


937 

1471 
1861 


939 

1861 
1891 


942 

1955 
1913 




2344* 
867 
885 

1055* 


2347 
927* 


2359 


2379* 


2380 


2400« 



20741 
976* 



904* 
1298 

869 
2469 
2440 



1989 



996 

930* 
2479 
2479 



NOB 



flfiINOCC-U-0ZWI-E 



DZRKIF.PU 



CYL 

CYLBPS 
CYLCMT 
CYLOFF 
CYLTBL 
OA 

OOISP = 

Of.lORV 

1/02 

Dfl 

ORACTV 
WCNTl 

DRIVl 
ORIV? 
Dfliv3 
WIVM 

ORIV& 
DRIV7 
0RVCN7 



OSWR 
ECNT 
EflTVEr 

Cm 

cmo 

tmi 

rm? 

► Mr* 

f MM 
f fIS 
EMb 
FM7 
Lf18 

f »n 

i KR«f t 
LRRVEf - 
( RRUCH 
lMRUC 
f HRUf 



013552 
005302 
00S30C> 

^2Ih 
OOHIO 
17757Q 
001142 
000174 



OOU&M 
001311 



2M-M«R-7e 0«9:20 

1! 



MfiCYU 300(1052^ 2M-»1AR-7e 0<3:23 PftGE 59 



CROSS REFERENCE TfiBLE — USER SYMBOLS 



SEO 0076 




020MHt> 



DSKTMP 001352 



177570 
001321 



021532 
022234 
0222M4 
0204b 1 
020M73 
020S0b 
n20S21 
iJ?0537 
rJ20SbO 

3c0t.01 
00(. 1 02 
00 1 ifcO 
'XM42'4 
'XJIH2b 
OOOOOM 

noiM30 

00l'<32 
a0lM22 



i5ie« 

835 a 
856 

717 
837 ■ 
821 
13(>5« 

hU. 

3Mb 
2030 

blM 
1%8 

533* 

455» 

2307# 



1326* 

&le« 

«942» 
M7» 
1767 
180 
70H» 

1857 

22801 

2401 • 

2403t 

1895 

21ies 

21201 

21221 

21251 

2128t 

2l30t 

m: 

874 
1343» 
1344« 

335 
1345» 
134b» 
1342» 



i522» 
922 



945 
83b 
1374» 
338 
34b* 

687 • 



509 
2311 



1327 



1039 

337 
9&3« 

1892 



2116S 



876« 
1420» 
1444* 

336« 
14S2* 
1453* 
1403« 



15271 



854 
1375 



2038 



&54« 
2319 



1330 

IS 



978 
1909 



960« 
1477» 
148S» 

347* 
1553« 
1549* 
1459* 



1391 
2061 



934 



1408 142S 
2070 20881 



1440 



1290 



1848 



1881 



21521 2208* 2215* 2217 



21121 



1341« 13S2 



1931 



1392 



1942 



1409 
1974 



1426 



1985 



1596« 



2034 



1631 



2045 



926« 
1660 



933» 
1729 



937 
1734 



21141 2318 



970» 
1478 
1487 

1554 
1550 
1460 




003312 



003 

GTSMR « 
lOtX 

IN t!| 

10 

IOTVtC» 
KYTFMP 

LOTLC 
LOSCEK 

Lrir . 

LOW 
CER 



MOUNT 
MSKTBL 

NXT 1 




0OM^2S 




B07 



iftCrii 300 lOSi 
?s-»1fiP '8 31:2C 



1H1« 
14H0I 
b«W 
SlOl 

i3bbt 

H19 
1690 



SSOl 



.15? 


U35 
IHIM 


I4j0 




223b 


22781 


377 




3K 


1309 
IbSO 
1713 

m 




m 


S37 


1004 






lObB 



1908 



2220 
2214 



28b9a 

227b 



702* 



SCO 3 



393 


397 


401 


SOS 


409 


414 
■"OS 


44b 




571 


580 


bis 


bb3 


7lb 




969 

1157 
1573 


99M 


1D23 


1032 


103'' 


1045 


1148 


1185 


1189 


1210 
lfa07 


1214 


1219 


149b 

mi 


1578 


1599 
lb-'9 


Ibll 


Iblb 


lbb9 


lb73 


ibsq 


lb95 


1-OC 


I7b4 


1778 


1788 


180b 


1811 


1819 


2192 


23S3 


2370 


2390 


2eb4 


28b5 


28bb 



1371 


1373 


lasot 


1473 


1552 








457* 
511 


458 
b48 


460* 
bSl* 


483* 

b52 


484 
b53« 


48S 


487 


501* 


2473 


2479 














5U« 
1757 
81b« 
b32i 
3l4« 


523 
1829 
921 

3b7 


538 


5b7 


b79 


905 


1072 


112b 



502 



503* 



SOS 



19211 



mirCCC-ll-OZNKI-C 



HPCYll 300(1052) ZH-mm-TU OS: 23 WWC 
'79 09:20 CKOSS HEFOCNCC TflSLE — 




RDCMP r 
HOLIh » 



•'Ml 

HtTRY 
RKCS 



?i5 

0QSb32 

st>/o 




013214 
001370 



J7H* 
1070 
7«» 



519t 



32 

33i# 
ISIO 
15(>2t 
1015 
lOlOt 
17<W1 

500 
21% 

547 

582 

S13 
9111 
914t 
92Sl 



9421 

930 

97ea 



977 

es7g 

IHMI 
14fiHa 
1477t 
M7« 

13«« 
1428* 

im' 

2052 



1206 
1085 
79b 

519» 

sie 



11371 

1580 
2610 

.hi 

924 



9Hb 
941 



1744 



lOOSt 

1479 
1393* 

.rs 

1396* 
1429» 

ins. 

20S5« 



122S« 
803* 



2879* 

1439 

1742 



2741 
2e73» 

^: 

947 



1793 



1489 




80b« 



2880* 
1748 

2872t 

1133 



155b 
1427* 

.il! 

1398« 
1431» 
IbSl* 
1793* 
2074# 



C07 

bl 

USER SYneocs 



•i20« 940* 943« 101b 



2889« 2895* 2907« 2908* 



1791 1798 22b8 



1735* 


I"'42« 


I7be» 


1791* 


liiift 






.SS* 


1399 


1401 


i4ii« 


1412« 


Ibi!" 


1448 


1450 


14b9« 


lb91 


1730« 


1732 


1795 


ie45« 


184b 


16b4« 


2075 


2092# 


2094 


2230* 



SCO 

1728* 1735 17bb» l^bS 



22beft 


2328 






.Hi 


.hi: 


im 


mi 


1413* 


1414* 


1415» 


141b 


1470» 


1485 


1547 


1&32« 


1737* 


1739 


1744« 


174b 


1902* 


1903 


19b3* 


19b5 


2231 


2233« 


2234 


2247 
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00l37(i 



00i3bH 

OOl3b4> 

Q013?f 






17bS 



173l»« 
30b0 



1170 


117b» 


lebJ* 






1425» 




I'^SO* 






188S« 


i%l« 










llb3* 


1225 


127S 


1292 


1%S 


1«7 


i%e 


200M 


1743* 


17I.S* 


1732* 


22b7tt 


2098 


23MS 







1273# 

20S0 

13Sb 
2013 



2327 



1280« 

205S# 

I3bl 
20b0 



SEO 0081 

1281* 
lb31» 
2088« 

1471 
2089 



SIN 

SINST 

SHT« 




OOHHO 




)10 
000020 



1S3HI 

427 
1S32I 



2224» 



2310 
12b0 
12S9 

132Stt 
lS4ia 

1519 



870 
1745 



373« 



337* 

2||1 

2239 



2111t 
15391 



892S 

1771 

iV 



339 
2274 
1191 
2244 



959 
1781 

1468 



971 
1794 

1535 



1172 
1865 

1727 



345* 358 1191 

2593 2632 2679* 

1227 1316 2218 

2254 2279 • 



1178 
2097 



1196 
2887 
2593 



1266 



1283 



1633 



1662 



1682 



1227 1235 
2900* 

2632 2655 



1316 



1323 



2218 



E07 



noiMO£C-ll-0ZRKl-E 



5W07 

SMoe 

SUl 

swir 
sun 

SW13 



SUM 

sub 

SW7 



SYSER 
SYSEfW 
SIO 
511 

TfliLTY 
TBITVE. 

tSlful 

TIf« 
TIMR 

TKVEC X 

TPVtC X 

TRqPVEs 

TRTVECs 

TRYflCW 

TSTSNl 

TYPE = 




oiaibo 

013874 
6l2l7M 




,4 

000034 
000014 
OUSbb 
CX)t>154 
104401 



TYPOC = 104402 

TYPON 3 104404 
TYPOS s 104403 
MTSk 020030 
UC 001412 
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70 • 80 
b9t 7«J 
b8a 78 
fe7i 77 
85 « 
bbt 
bSl 
b4l 
bSa 
b2t 
bis 
84 • 
83 • 
821 
81t 
80t 
7«9t 
78t 
779 

14b2a 1480 
155S 1SS7» 
1324 13301 
132St 1362 
13471 

13231 1329 
372 41 It 
1191 

bSb b58« 
872 879t 
257« 732* 
243« 733* 
12bt 2S7B« 
127« 

125t 329« 
120t 
I227i 1244 
9S7 %4 
354 375 
448 477 
706 714 
1035 1043 
1212 121b 
lb7b 1597 
lb71 lb77 
177b 1786 
1912 1931 
2048 2065 
2539 2p9 
2769 2771 
1334 1859 
2393 2b5b 
1048 1054 
575 b22 
1983 2002* 
277t 1348» 



CROSS REFERENCE TftBLE — JSER SYMBOLS 



1557 



423 



740# 
771 
2579* 

330« 



1390 



7bl* 
773» 



383 
489 
742 
108b 
1240 
lb09 

1^ 
1809 

1942 

218b 

2654 

2778 

1911 

1828 

1027 

1424 



769« 
865« 



863* 
882 



387 


391 


496 




749 




1090 


IO9I 


1307 


1312 


1613 


1619 


1696 


1702 


1817 


iei3 


1945 


1974 


2190 


2194 


2657 


2670 


28641 


2909 


1933 


1944 


2867 » 




1040 


1100 



879« 
884* 



395 
514 
776 
1103 
x331 
1625 
1706 
1857 
1977 
2314 
2681 

1976 



uoa 



892* 



893* 



399 
551 
887 
1119 
1332 
1638 
1711 
1860 
1985 
231b 
2700 

1987 



1582 



403 
5b 1 
981 
1146 
1378 
lb42 
1715 
1874 
1988 
2318 
2748 

2029 



lb02 



407 
569 
987 
1155 
1463 
1646 
1719 
1892 
2024 
2351 
2754 

2036 



1814 



412 
578 
992 
1183 
1494 
1651 
1723 
1895 
2034 
2368 
2759 

2047 



28bbii 



422 
bl7 
1021 
1187 
1523 
lb55 
1752 
1898 
2037 
2388 
2763 

2315 



SEO 0082 



bbl 
1030 
1208 
1571 
lbb7 
17b2 
1909 
2045 
2443 
27b8 

2320 



F07 
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CROSS REFERENCE TRBLE — USER SYMBOLS 



SCO 0083 



UC^CRf) 

bTERR 

WPS 

INK 



013b54 
14M 




tCKSUR 




tCTSUR 
fHD > 
fMlOCT 
«ICNT 

%LF 

SLPOOR 
tlPfRH 
»«RU « 

SNULL 

»OCNT 

lOfWOC 

$P«SS 

SPOkCR 

»P«BHG 
tPklRUP 



){ilH 

)nb2 

OOllOb 
OOUlO 
*«»«•« 

02HU5 
02M10M 
001154 
022732 
02273M 
OOUOO 
02MS5t> 
02M310 
02MSSM 
024 3b2 
001 IbO 




H 
lbl8 
239 • 
lb92 
171Qt 
177i 
172t 
ITMt 
2S99 
2MMS* 
2&32I 
IbOl 
1901 
2t>S3 
2b70 
1911 
149 
lb3t 
lb9l 
1701 
307 • 
1&7I 
1881 
187a 
17H 
173« 
2b54t 

11 
2827* 
IbHI 
2879 
17ei 
IbSl 
1921 
IbSl 
IbbI 
349 
2b57 
2654 

1B6N 
2S1U 
2S06* 
1611 
2910 
331 
29101 
2889 
1901 



145Si 
lSS3a 
1459t 

798 
bis 
lb36 
16X 
918* 
1697t 



27881 

2455* 
2871 
322 

2790i 

2763 
1331 
270 • 



2448 
2479 



2869 
12 
2e32« 

2895 
2651* 

2479 



358 
2793 • 
27911 
2450 
2540* 

2915« 
2879» 

28951 

422 



1925 



1737 

7861 
1760t 
172et 

10?6 



362* 2646 



2462 
323 



27891 
1874 



2479 



2912t 

2682 

2778 



2432 



2M79 
2553 1 
2515 
1134 

2907 



2479 



929* 

1770 

1756 
2795 
2471* 

2444 



24761 



2479 2681 2768 



2788 



2795 
2788 



2518* 2529* 255Si 



2700 



2771 2788 



G07 
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»S£r JPr 

iSTlJP « 
ISvPC = 
tSkJ» = 
»TKB 
STU-CNT 
ITKINT 
iTKCi£N« 
ITKCiIN 

ITKtXXI 

STKG 

ITN z 

»TP6 

tTPTl G 

»TPS 

STRAP 

»IR«r^ 

ITRP 

STRPflO 

STTYIN 

iTYPOS« 

«TYPE 

STYPEC 

STYPEX 

STYPOC 

STYPO»< 

ITYPOS 

iOriLL 



•«*•«• u 

••«••• u 

• i, 

'J2MH54 

0001 IH 

177777 

000222 

IbOOOO 

Xll^b 

02273b 

0227M(, 

022745 

0227H0 

022742 

05274M 

OOll'+M 

a2Xib 

000001 
001152 
001157 
11150 



IP 
l2feH 
1 102 
024038 
••«•«• 
•**»»• 
0«?2270 
022440 
022508 
Q2253M 
022550 
022510 
022733 
0244fafa 



2973 
2874 



28% 
326 




2Vb8« 

2Hbb 
2641 • 
28b3 
28b5l 
28831 



SCO 0064 



28«97# 
32"5 



190 
2580 
2S"37 
2bM«9 
2725 
2577 
2723 

25B1« 



2M7S 
2H7«9 
2479 



2Bbbl 



273S 


2751 


2858 


28b4 


2MS4 


2481 


2474 


2477a 


28b5 




2511« 


2887 


2888 




2509* 


2519 


1351 


140a 


32b 


388 a 


|b4a 


572 a 


1315a 


1381 a 


170Sa 


1718a 


2323 


2338 



2898* 

331 



2911 
2589 
2814# 



2b20» 
2724* 
§727 
2b04« 



28b7a 

27b9 



25548 
147 
378* 
820« 
1486a 
1755a 
2354a 



2914a 
333 



2808 
2720 



282 1« 
2725 

2808 



2888 a 
2783 



2488a 2487 



148a 
3S2a 
717a 

1497a 

1785a 
2382 



354 



2838 
2722* 



2822 
2727« 

2812t 



2889 
2787a 

2888 



150a 
388a 
74|a 

1533a 
17798 
23718 



355 

2883 

2824* 
2834 



2591 



2598 



2597 



2827 



2795 



2850* 2880 



2884* 



28708 2871 



28728 28738 28748 28758 



1528 
3908 

§908 
828 
18128 

2373 



1598 
3948 

Ml 

18288 

2378 



193 
3988 
10528 
18188 
19018 
2384 



1988 
4028 
10988 
18418 
20278 
23918 



2078 
4088 
11378 
16498 
21518 
2479 



2088 
4108 
11588 
16548 
21938 
2559 



2268 
4478 

1234 
16588 
2259 
25638 



H07 
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DZRKIF.PU 2M-H«»-78 OS: 20 CROSS REFERENCE TABLE ~ MACRO NflriES 




SETPRI 

SCTTRfl 

SCTUf 

SKIP 

SLASH 

SPACE 

STARS 

SURSU 

TRHTRP 

TYPBIN 

TYPOEC 
TYPNAn 
TYPNUM 

T YPOCS 
T^POCT 
TYPTXT 



MCMTM 
SIESCA 

tsrcuT 

«SET 
MSKIP 
.EOUAT 
.HEAOC 
.KTU 
.SETUP 
SURHI 
.SACTl 
SAPTB 
SAPTH 
SAPTY 
. iASTA 
.ICATC 
fCOTA 
.I0B20 



!• 
!• 
It 

153« 
II 

li 

II 
2SI 
II 
285b I 

II 
II 

ie«9i 

IS 
2B3S 
II 

2B5&I 
II 
II 
11 
II 
II 
II 
II 
489 
775 
1145 
1575 
lb87 
1817 
153 
153 



2B5b 



I24l 



129S 
12SI 

la's! 

12SI 
28/7 
1291 

1291 
1291 
1291 
1291 
1291 
1291 
1291 
49fc 
887 
1154 
1597 
lb93 
1823 



129* 
1291 
2eb5 
1291 

19 



314 
143 



129 
153 



3551 



if m m 



271b 








2872 


^gt 


2eb7 


2Bb9 


2871 


145 


155 


193 


308 


312 


2893 










3331 










350 










710 


IbOl 










379 


383 


387 


391 


513 


550 


SbO 


5b8 


578 


981 


98b 


991 


1021 


1030 


1183 


1187 


1206 


1212 


121b 


IbOS 


lb09 




lbl9 


lb25 


lb97 


1702 


{%i 


1711 


1715 


1B9B 


2023 


2065 


2182 


21B6 


28bb 


28b7 


28b9 


2871 


2872 



2B73 



2411 



2874 



2481 



2558 



2b27 



2b42 



2705 



2729 



2797 



395 
bl7 
1034 
1220 
1637 
1719 
2190 



2873 



399 


403 


407 


bbl 


70b 


714 


1043 


1049 


108b 


1240 


130b 


1311 


lb42 


lb4b 


IbSl 


1723 


1752 


17b2 


2351 


23b8 


2388 



411 


443 


448 


47b 


718 


742 


749 


75b 


1090 


1095 


1103 


1118 


1377 


14b2 


1493 


1570 


1655 


lbb7 


lb71 


lb77 


177b 


178b 


1804 


1809 



2874 



10' 
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23 PA<^C be 
TftBLE — MRCRC 



^4PnES 



SEo ooeb 



1 ■ 




1 ■ 




1 ■ 




IB 




1 « 




1 1 


2875 


1 ■ 




1 a 




; g 


2795 


lg 


2556 


1 ■ 




1 g 




1 1 




1 ■ 




1 ■ 




IS 




1« 




It 


2633 


It 




it 




It 


2409 


11 


2M79 


It 




It 





Res. 02SM&b 



000 



ERRORS DETECTED: 0 

DZRk IF .BIN, D2RK IF . LST/CRF/SOL=DZRKKE . SML , D2RKIF . PI 1 
RUN-Tiri|: Ig lb 1 SECONDS 
RUN-TIME RttTiO: 102/31=3.3 
CORE USED: 33K (bS PRGES) 
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